Developer CD Series 1996 May: Tool Chest

home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 May: Tool Chest / Developer CD Series May 1996 (Tool Chest) (Apple Computer) (1996).iso / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / User Contributions / oodles-of-utils.sea / oodles-of-utils / objects-of-desire / te-blob.lisp < prev
MacBinary | 1992-07-24 | 14.0 KB | [TEXT/CCL2]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Fri Jul 24 13:57:01 1992, modified Fri Jul 24 13:57:01 1992, creator Common Lisp 2, type ASCII, 13599 bytes "te-blob.lisp" , at 0x359f 442 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[CCL2]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0c 74 65 2d 62 6c 6f | 62 2e 6c 69 73 70 00 00 |..te-blo|b.lisp..|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 43 43 4c | 32 01 00 00 00 00 00 00 |.TEXTCCL|2.......|
|00000050| 00 00 00 00 00 35 1f 00 | 00 01 ba a6 95 f4 ed a6 |.....5..|........|
|00000060| 95 f4 ed 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 02 cd 00 00 |........|........|
|00000080| 28 69 6e 2d 70 61 63 6b | 61 67 65 20 3a 6f 6f 75 |(in-pack|age :oou|
|00000090| 29 0d 28 6f 6f 75 2d 70 | 72 6f 76 69 64 65 20 3a |).(oou-p|rovide :|
|000000a0| 74 65 2d 62 6c 6f 62 29 | 0d 3b 3b 3b 3b 3b 3b 3b |te-blob)|.;;;;;;;|
|000000b0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000c0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000d0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000e0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 0d |;;;;;;;;|;;;;;;;.|
|000000f0| 3b 3b 20 74 65 2d 62 6c | 6f 62 2e 6c 69 73 70 0d |;; te-bl|ob.lisp.|
|00000100| 3b 3b 0d 3b 3b 20 43 6f | 70 79 72 69 67 68 74 20 |;;.;; Co|pyright |
|00000110| a9 20 31 39 39 32 20 4e | 6f 72 74 68 77 65 73 74 |. 1992 N|orthwest|
|00000120| 65 72 6e 20 55 6e 69 76 | 65 72 73 69 74 79 20 49 |ern Univ|ersity I|
|00000130| 6e 73 74 69 74 75 74 65 | 20 66 6f 72 20 74 68 65 |nstitute| for the|
|00000140| 20 4c 65 61 72 6e 69 6e | 67 20 53 63 69 65 6e 63 | Learnin|g Scienc|
|00000150| 65 73 0d 3b 3b 20 41 6c | 6c 20 52 69 67 68 74 73 |es.;; Al|l Rights|
|00000160| 20 52 65 73 65 72 76 65 | 64 0d 3b 3b 0d 3b 3b 20 | Reserve|d.;;.;; |
|00000170| 61 75 74 68 6f 72 3a 20 | 4d 69 63 68 61 65 6c 20 |author: |Michael |
|00000180| 53 2e 20 45 6e 67 62 65 | 72 0d 3b 3b 0d 3b 3b 20 |S. Engbe|r.;;.;; |
|00000190| 73 74 79 6c 65 64 20 74 | 65 78 74 20 65 64 69 74 |styled t|ext edit|
|000001a0| 20 6f 62 6a 65 63 74 0d | 3b 3b 3b 3b 3b 3b 3b 3b | object.|;;;;;;;;|
|000001b0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000001c0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000001d0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000001e0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 0d 0d |;;;;;;;;|;;;;;;..|
|000001f0| 28 6f 6f 75 2d 64 65 70 | 65 6e 64 65 6e 63 69 65 |(oou-dep|endencie|
|00000200| 73 20 3a 51 75 69 63 6b | 44 72 61 77 2d 75 0d 20 |s :Quick|Draw-u. |
|00000210| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000220| 20 3a 72 65 63 6f 72 64 | 73 2d 75 29 0d 0d 3b 3b | :record|s-u)..;;|
|00000230| 63 75 72 72 65 6e 74 6c | 79 20 49 20 68 61 76 65 |currentl|y I have|
|00000240| 6e 27 74 20 64 6f 63 75 | 6d 65 6e 74 65 64 20 61 |n't docu|mented a|
|00000250| 6e 64 20 65 78 70 6f 72 | 74 65 64 20 74 68 69 73 |nd expor|ted this|
|00000260| 20 74 68 69 6e 67 2e 20 | 49 27 6d 20 72 65 73 65 | thing. |I'm rese|
|00000270| 72 76 69 6e 67 20 74 68 | 65 0d 3b 3b 20 72 69 67 |rving th|e.;; rig|
|00000280| 68 74 20 74 6f 20 6d 61 | 6b 65 20 73 69 67 6e 69 |ht to ma|ke signi|
|00000290| 63 61 6e 74 20 63 68 61 | 6e 67 65 73 2e 0d 3b 3b |cant cha|nges..;;|
|000002a0| 74 65 2d 73 76 6d 20 6d | 61 6b 65 73 20 75 73 65 |te-svm m|akes use|
|000002b0| 20 6f 66 20 69 74 2e 0d | 0d 3b 3b 3b 3b 3b 3b 3b | of it..|.;;;;;;;|
|000002c0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000002d0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000002e0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000002f0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 0d |;;;;;;;;|;;;;;;;.|
|00000300| 0d 28 64 65 66 43 63 61 | 6c 6c 61 62 6c 65 20 74 |.(defCca|llable t|
|00000310| 65 2d 63 6c 69 6b 2d 6c | 6f 6f 70 20 28 3a 77 6f |e-clik-l|oop (:wo|
|00000320| 72 64 29 0d 20 20 28 64 | 65 63 6c 61 72 65 20 28 |rd).  (d|eclare (|
|00000330| 73 70 65 63 69 61 6c 20 | 2a 74 65 2d 63 75 72 72 |special |*te-curr|
|00000340| 65 6e 74 2d 62 6c 6f 62 | 2a 29 29 0d 20 20 28 64 |ent-blob|*)).  (d|
|00000350| 65 63 6c 61 72 65 20 28 | 73 70 65 63 69 61 6c 20 |eclare (|special |
|00000360| 2a 74 65 2d 76 69 65 77 | 2d 72 65 63 74 2a 29 29 |*te-view|-rect*))|
|00000370| 0d 20 20 28 74 65 2d 63 | 6c 69 63 6b 2d 6c 6f 6f |.  (te-c|lick-loo|
|00000380| 70 20 2a 74 65 2d 63 75 | 72 72 65 6e 74 2d 62 6c |p *te-cu|rrent-bl|
|00000390| 6f 62 2a 29 0d 20 20 28 | 23 5f 43 6c 69 70 52 65 |ob*).  (|#_ClipRe|
|000003a0| 63 74 20 2a 74 65 2d 76 | 69 65 77 2d 72 65 63 74 |ct *te-v|iew-rect|
|000003b0| 2a 29 29 0d 0d 0d 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |*))...;;|;;;;;;;;|
|000003c0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000003d0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000003e0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000003f0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 0d 0d 28 64 |;;;;;;;;|;;;;..(d|
|00000400| 65 66 63 6c 61 73 73 20 | 74 65 2d 62 6c 6f 62 20 |efclass |te-blob |
|00000410| 28 29 0d 20 20 28 28 74 | 65 2d 68 54 45 20 3a 61 |().  ((t|e-hTE :a|
|00000420| 63 63 65 73 73 6f 72 20 | 74 65 2d 68 54 45 29 0d |ccessor |te-hTE).|
|00000430| 20 20 20 28 74 65 2d 6d | 61 78 2d 76 2d 73 63 72 |   (te-m|ax-v-scr|
|00000440| 6f 6c 6c 20 20 20 20 3a | 61 63 63 65 73 73 6f 72 |oll    :|accessor|
|00000450| 20 74 65 2d 6d 61 78 2d | 76 2d 73 63 72 6f 6c 6c | te-max-|v-scroll|
|00000460| 29 0d 20 20 20 28 74 65 | 2d 6d 61 78 2d 68 2d 73 |).   (te|-max-h-s|
|00000470| 63 72 6f 6c 6c 20 20 20 | 20 3a 61 63 63 65 73 73 |croll   | :access|
|00000480| 6f 72 20 74 65 2d 6d 61 | 78 2d 68 2d 73 63 72 6f |or te-ma|x-h-scro|
|00000490| 6c 6c 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ll.     |        |
|000004a0| 20 20 20 20 20 20 20 20 | 20 20 3a 69 6e 69 74 66 |        |  :initf|
|000004b0| 6f 72 6d 20 31 30 30 30 | 29 0d 20 20 20 28 74 65 |orm 1000|).   (te|
|000004c0| 2d 76 2d 73 63 72 6f 6c | 6c 2d 70 20 20 20 20 20 |-v-scrol|l-p     |
|000004d0| 20 3a 69 6e 69 74 61 72 | 67 20 3a 74 65 2d 76 2d | :initar|g :te-v-|
|000004e0| 73 63 72 6f 6c 6c 2d 70 | 0d 20 20 20 20 20 20 20 |scroll-p|.       |
|000004f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000500| 3a 61 63 63 65 73 73 6f | 72 20 74 65 2d 76 2d 73 |:accesso|r te-v-s|
|00000510| 63 72 6f 6c 6c 2d 70 29 | 0d 20 20 20 28 74 65 2d |croll-p)|.   (te-|
|00000520| 68 2d 73 63 72 6f 6c 6c | 2d 70 20 20 20 20 20 20 |h-scroll|-p      |
|00000530| 3a 69 6e 69 74 61 72 67 | 20 3a 74 65 2d 68 2d 73 |:initarg| :te-h-s|
|00000540| 63 72 6f 6c 6c 2d 70 0d | 20 20 20 20 20 20 20 20 |croll-p.|        |
|00000550| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a |        |       :|
|00000560| 61 63 63 65 73 73 6f 72 | 20 74 65 2d 68 2d 73 63 |accessor| te-h-sc|
|00000570| 72 6f 6c 6c 2d 70 29 0d | 20 20 20 28 74 65 2d 73 |roll-p).|   (te-s|
|00000580| 63 72 6f 6c 6c 2d 76 61 | 6c 75 65 2d 66 6e 20 3a |croll-va|lue-fn :|
|00000590| 69 6e 69 74 61 72 67 20 | 3a 74 65 2d 73 63 72 6f |initarg |:te-scro|
|000005a0| 6c 6c 2d 76 61 6c 75 65 | 2d 66 6e 0d 20 20 20 20 |ll-value|-fn.    |
|000005b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000005c0| 20 20 20 3a 61 63 63 65 | 73 73 6f 72 20 74 65 2d |   :acce|ssor te-|
|000005d0| 73 63 72 6f 6c 6c 2d 76 | 61 6c 75 65 2d 66 6e 29 |scroll-v|alue-fn)|
|000005e0| 0d 20 20 20 28 74 65 2d | 73 63 72 6f 6c 6c 2d 6c |.   (te-|scroll-l|
|000005f0| 69 6d 69 74 2d 66 6e 20 | 3a 69 6e 69 74 61 72 67 |imit-fn |:initarg|
|00000600| 20 3a 74 65 2d 73 63 72 | 6f 6c 6c 2d 6c 69 6d 69 | :te-scr|oll-limi|
|00000610| 74 2d 66 6e 0d 20 20 20 | 20 20 20 20 20 20 20 20 |t-fn.   |        |
|00000620| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a 61 63 63 |        |    :acc|
|00000630| 65 73 73 6f 72 20 74 65 | 2d 73 63 72 6f 6c 6c 2d |essor te|-scroll-|
|00000640| 6c 69 6d 69 74 2d 66 6e | 29 0d 20 20 20 29 0d 20 |limit-fn|).   ). |
|00000650| 20 28 3a 64 65 66 61 75 | 6c 74 2d 69 6e 69 74 61 | (:defau|lt-inita|
|00000660| 72 67 73 0d 20 20 20 20 | 3a 74 65 2d 74 6f 70 4c |rgs.    |:te-topL|
|00000670| 65 66 74 20 20 20 20 20 | 23 40 28 30 20 30 29 0d |eft     |#@(0 0).|
|00000680| 20 20 20 20 3a 74 65 2d | 62 6f 74 52 69 67 68 74 |    :te-|botRight|
|00000690| 20 20 20 20 23 40 28 31 | 30 30 20 31 30 30 29 0d |    #@(1|00 100).|
|000006a0| 20 20 20 20 3a 74 65 2d | 6a 75 73 74 20 20 20 20 |    :te-|just    |
|000006b0| 20 20 20 20 3a 64 65 66 | 61 75 6c 74 0d 20 20 20 |    :def|ault.   |
|000006c0| 20 3a 74 65 2d 77 6f 72 | 64 2d 77 72 61 70 2d 70 | :te-wor|d-wrap-p|
|000006d0| 20 6e 69 6c 0d 20 20 20 | 20 3a 74 65 2d 76 2d 73 | nil.   | :te-v-s|
|000006e0| 63 72 6f 6c 6c 2d 70 20 | 20 6e 69 6c 0d 20 20 20 |croll-p | nil.   |
|000006f0| 20 3a 74 65 2d 68 2d 73 | 63 72 6f 6c 6c 2d 70 20 | :te-h-s|croll-p |
|00000700| 20 6e 69 6c 20 20 20 0d | 20 20 20 20 29 29 0d 0d | nil   .|    ))..|
|00000710| 0d 28 64 65 66 6d 65 74 | 68 6f 64 20 69 6e 69 74 |.(defmet|hod init|
|00000720| 69 61 6c 69 7a 65 2d 69 | 6e 73 74 61 6e 63 65 20 |ialize-i|nstance |
|00000730| 3a 61 66 74 65 72 20 28 | 28 74 65 20 74 65 2d 62 |:after (|(te te-b|
|00000740| 6c 6f 62 29 20 26 72 65 | 73 74 20 69 6e 69 74 61 |lob) &re|st inita|
|00000750| 72 67 73 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |rgs.    |        |
|00000760| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000770| 20 20 20 20 20 20 20 20 | 20 20 20 26 6b 65 79 0d |        |   &key.|
|00000780| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000790| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000007a0| 20 20 20 20 20 20 20 74 | 65 2d 70 6f 72 74 0d 20 |       t|e-port. |
|000007b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000007c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000007d0| 20 20 20 20 20 20 74 65 | 2d 74 6f 70 4c 65 66 74 |      te|-topLeft|
|000007e0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|000007f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000800| 20 20 20 20 20 20 20 20 | 74 65 2d 62 6f 74 52 69 |        |te-botRi|
|00000810| 67 68 74 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |ght.    |        |
|00000820| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000830| 20 20 20 20 20 20 20 20 | 20 20 20 74 65 2d 6a 75 |        |   te-ju|
|00000840| 73 74 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |st.     |        |
|00000850| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000860| 20 20 20 20 20 20 20 20 | 20 20 74 65 2d 77 6f 72 |        |  te-wor|
|00000870| 64 2d 77 72 61 70 2d 70 | 29 0d 20 20 28 64 65 63 |d-wrap-p|).  (dec|
|00000880| 6c 61 72 65 20 28 69 67 | 6e 6f 72 65 20 69 6e 69 |lare (ig|nore ini|
|00000890| 74 61 72 67 73 29 29 0d | 20 20 28 72 6c 65 74 20 |targs)).|  (rlet |
|000008a0| 28 28 72 20 3a 52 65 63 | 74 0d 20 20 20 20 20 20 |((r :Rec|t.      |
|000008b0| 20 20 20 20 20 20 3a 74 | 6f 70 4c 65 66 74 20 20 |      :t|opLeft  |
|000008c0| 20 20 20 74 65 2d 74 6f | 70 4c 65 66 74 0d 20 20 |   te-to|pLeft.  |
|000008d0| 20 20 20 20 20 20 20 20 | 20 20 3a 62 6f 74 74 6f |        |  :botto|
|000008e0| 6d 52 69 67 68 74 20 74 | 65 2d 62 6f 74 52 69 67 |mRight t|e-botRig|
|000008f0| 68 74 29 29 0d 20 20 20 | 20 28 77 69 74 68 2d 70 |ht)).   | (with-p|
|00000900| 6f 72 74 20 74 65 2d 70 | 6f 72 74 0d 20 20 20 20 |ort te-p|ort.    |
|00000910| 20 20 20 20 28 73 65 74 | 66 20 28 74 65 2d 68 54 |    (set|f (te-hT|
|00000920| 45 20 74 65 29 20 28 23 | 5f 54 45 53 74 79 6c 4e |E te) (#|_TEStylN|
|00000930| 65 77 20 72 20 72 29 29 | 29 29 0d 20 20 28 23 5f |ew r r))|)).  (#_|
|00000940| 54 45 41 75 74 6f 56 69 | 65 77 20 74 20 28 74 65 |TEAutoVi|ew t (te|
|00000950| 2d 68 54 45 20 74 65 29 | 29 0d 20 20 28 68 73 65 |-hTE te)|).  (hse|
|00000960| 74 20 28 74 65 2d 68 54 | 45 20 74 65 29 20 3a 54 |t (te-hT|E te) :T|
|00000970| 45 52 65 63 2e 63 6c 69 | 6b 4c 6f 6f 70 20 74 65 |ERec.cli|kLoop te|
|00000980| 2d 63 6c 69 6b 2d 6c 6f | 6f 70 29 0d 20 20 28 23 |-clik-lo|op).  (#|
|00000990| 5f 54 45 53 65 74 4a 75 | 73 74 20 28 65 63 61 73 |_TESetJu|st (ecas|
|000009a0| 65 20 74 65 2d 6a 75 73 | 74 0d 20 20 20 20 20 20 |e te-jus|t.      |
|000009b0| 20 20 20 20 20 20 20 20 | 20 20 20 28 3a 64 65 66 |        |   (:def|
|000009c0| 61 75 6c 74 20 23 24 74 | 65 46 6c 75 73 68 44 65 |ault #$t|eFlushDe|
|000009d0| 66 61 75 6c 74 29 0d 20 | 20 20 20 20 20 20 20 20 |fault). |        |
|000009e0| 20 20 20 20 20 20 20 20 | 28 3a 63 65 6e 74 65 72 |        |(:center|
|000009f0| 20 20 23 24 74 65 43 65 | 6e 74 65 72 29 0d 20 20 |  #$teCe|nter).  |
|00000a00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |        |       (|
|00000a10| 3a 72 69 67 68 74 20 20 | 20 23 24 74 65 46 6c 75 |:right  | #$teFlu|
|00000a20| 73 68 52 69 67 68 74 29 | 0d 20 20 20 20 20 20 20 |shRight)|.       |
|00000a30| 20 20 20 20 20 20 20 20 | 20 20 28 3a 6c 65 66 74 |        |  (:left|
|00000a40| 20 20 20 20 23 24 74 65 | 46 6c 75 73 68 4c 65 66 |    #$te|FlushLef|
|00000a50| 74 29 29 0d 20 20 20 28 | 74 65 2d 68 54 45 20 74 |t)).   (|te-hTE t|
|00000a60| 65 29 29 0d 20 20 28 68 | 73 65 74 20 28 74 65 2d |e)).  (h|set (te-|
|00000a70| 68 54 45 20 74 65 29 20 | 3a 54 45 52 65 63 2e 63 |hTE te) |:TERec.c|
|00000a80| 72 4f 6e 6c 79 20 28 69 | 66 20 74 65 2d 77 6f 72 |rOnly (i|f te-wor|
|00000a90| 64 2d 77 72 61 70 2d 70 | 20 30 20 2d 31 29 29 29 |d-wrap-p| 0 -1)))|
|00000aa0| 0d 0d 28 64 65 66 6d 65 | 74 68 6f 64 20 74 65 2d |..(defme|thod te-|
|00000ab0| 66 72 65 65 20 28 28 74 | 65 20 74 65 2d 62 6c 6f |free ((t|e te-blo|
|00000ac0| 62 29 29 0d 20 20 28 23 | 5f 54 45 44 69 73 70 6f |b)).  (#|_TEDispo|
|00000ad0| 73 65 20 28 74 65 2d 68 | 54 45 20 74 65 29 29 0d |se (te-h|TE te)).|
|00000ae0| 20 20 28 73 6c 6f 74 2d | 6d 61 6b 75 6e 62 6f 75 |  (slot-|makunbou|
|00000af0| 6e 64 20 74 65 20 27 74 | 65 2d 68 54 45 29 29 0d |nd te 't|e-hTE)).|
|00000b00| 0d 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |.;;;;;;;|;;;;;;;;|
|00000b10| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000b20| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000b30| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000b40| 3b 3b 3b 3b 3b 3b 3b 0d | 0d 28 64 65 66 6d 65 74 |;;;;;;;.|.(defmet|
|00000b50| 68 6f 64 20 74 65 2d 64 | 72 61 77 20 28 28 74 65 |hod te-d|raw ((te|
|00000b60| 20 74 65 2d 62 6c 6f 62 | 29 29 0d 20 20 28 6d 75 | te-blob|)).  (mu|
|00000b70| 6c 74 69 70 6c 65 2d 76 | 61 6c 75 65 2d 62 69 6e |ltiple-v|alue-bin|
|00000b80| 64 20 28 74 6f 70 4c 65 | 66 74 20 62 6f 74 52 69 |d (topLe|ft botRi|
|00000b90| 67 68 74 29 20 28 74 65 | 2d 63 6f 72 6e 65 72 73 |ght) (te|-corners|
|00000ba0| 20 74 65 29 0d 20 20 20 | 20 28 72 6c 65 74 20 28 | te).   | (rlet (|
|00000bb0| 28 72 20 3a 52 65 63 74 | 0d 20 20 20 20 20 20 20 |(r :Rect|.       |
|00000bc0| 20 20 20 20 20 20 20 3a | 74 6f 70 4c 65 66 74 20 |       :|topLeft |
|00000bd0| 20 20 20 20 74 6f 70 4c | 65 66 74 0d 20 20 20 20 |    topL|eft.    |
|00000be0| 20 20 20 20 20 20 20 20 | 20 20 3a 62 6f 74 74 6f |        |  :botto|
|00000bf0| 6d 52 69 67 68 74 20 62 | 6f 74 52 69 67 68 74 29 |mRight b|otRight)|
|00000c00| 29 0d 20 20 20 20 20 20 | 28 23 5f 54 45 55 70 64 |).      |(#_TEUpd|
|00000c10| 61 74 65 20 20 72 20 28 | 74 65 2d 68 54 45 20 74 |ate  r (|te-hTE t|
|00000c20| 65 29 29 29 29 29 0d 0d | 0d 3b 3b 3b 3b 3b 3b 3b |e)))))..|.;;;;;;;|
|00000c30| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000c40| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000c50| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000c60| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 0d |;;;;;;;;|;;;;;;;.|
|00000c70| 3b 3b 76 65 72 74 69 63 | 61 6c 20 73 63 72 6f 6c |;;vertic|al scrol|
|00000c80| 6c 69 6e 67 0d 0d 28 64 | 65 66 6d 65 74 68 6f 64 |ling..(d|efmethod|
|00000c90| 20 74 65 2d 63 61 6c 63 | 2d 6d 61 78 2d 76 2d 73 | te-calc|-max-v-s|
|00000ca0| 63 72 6f 6c 6c 20 28 28 | 74 65 20 74 65 2d 62 6c |croll ((|te te-bl|
|00000cb0| 6f 62 29 29 0d 20 20 28 | 77 69 74 68 2d 6d 61 63 |ob)).  (|with-mac|
|00000cc0| 70 74 72 73 20 28 28 68 | 54 45 20 28 74 65 2d 68 |ptrs ((h|TE (te-h|
|00000cd0| 54 45 20 74 65 29 29 29 | 0d 20 20 20 20 28 73 65 |TE te)))|.    (se|
|00000ce0| 74 66 20 28 74 65 2d 6d | 61 78 2d 76 2d 73 63 72 |tf (te-m|ax-v-scr|
|00000cf0| 6f 6c 6c 20 74 65 29 0d | 20 20 20 20 20 20 20 20 |oll te).|        |
|00000d00| 20 20 28 2d 20 28 23 5f | 54 45 47 65 74 48 65 69 |  (- (#_|TEGetHei|
|00000d10| 67 68 74 20 31 20 36 35 | 35 33 35 20 68 54 45 29 |ght 1 65|535 hTE)|
|00000d20| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 28 2d |.       |      (-|
|00000d30| 20 28 68 72 65 66 20 68 | 54 45 20 3a 54 45 52 65 | (href h|TE :TERe|
|00000d40| 63 2e 76 69 65 77 52 65 | 63 74 2e 62 6f 74 74 6f |c.viewRe|ct.botto|
|00000d50| 6d 29 20 28 68 72 65 66 | 20 68 54 45 20 3a 54 45 |m) (href| hTE :TE|
|00000d60| 52 65 63 2e 76 69 65 77 | 52 65 63 74 2e 74 6f 70 |Rec.view|Rect.top|
|00000d70| 29 29 29 29 29 29 0d 0d | 28 64 65 66 6d 65 74 68 |))))))..|(defmeth|
|00000d80| 6f 64 20 74 65 2d 76 2d | 73 63 72 6f 6c 6c 2d 76 |od te-v-|scroll-v|
|00000d90| 61 6c 75 65 20 28 28 74 | 65 20 74 65 2d 62 6c 6f |alue ((t|e te-blo|
|00000da0| 62 29 29 0d 20 20 28 77 | 69 74 68 2d 6d 61 63 70 |b)).  (w|ith-macp|
|00000db0| 74 72 73 20 28 28 68 54 | 45 20 28 74 65 2d 68 54 |trs ((hT|E (te-hT|
|00000dc0| 45 20 74 65 29 29 29 0d | 20 20 20 20 28 2d 20 28 |E te))).|    (- (|
|00000dd0| 68 72 65 66 20 68 54 45 | 20 3a 54 45 52 65 63 2e |href hTE| :TERec.|
|00000de0| 76 69 65 77 52 65 63 74 | 2e 74 6f 70 29 20 28 68 |viewRect|.top) (h|
|00000df0| 72 65 66 20 68 54 45 20 | 3a 54 45 52 65 63 2e 64 |ref hTE |:TERec.d|
|00000e00| 65 73 74 52 65 63 74 2e | 74 6f 70 29 29 29 29 0d |estRect.|top)))).|
|00000e10| 0d 28 64 65 66 6d 65 74 | 68 6f 64 20 28 73 65 74 |.(defmet|hod (set|
|00000e20| 66 20 74 65 2d 76 2d 73 | 63 72 6f 6c 6c 2d 76 61 |f te-v-s|croll-va|
|00000e30| 6c 75 65 29 20 28 6e 65 | 77 2d 73 63 72 6f 6c 6c |lue) (ne|w-scroll|
|00000e40| 2d 76 61 6c 75 65 20 28 | 74 65 20 74 65 2d 62 6c |-value (|te te-bl|
|00000e50| 6f 62 29 29 0d 20 20 28 | 70 72 6f 67 31 0d 20 20 |ob)).  (|prog1.  |
|00000e60| 20 20 28 73 65 74 66 20 | 6e 65 77 2d 73 63 72 6f |  (setf |new-scro|
|00000e70| 6c 6c 2d 76 61 6c 75 65 | 20 28 6d 61 78 20 30 20 |ll-value| (max 0 |
|00000e80| 28 6d 69 6e 20 6e 65 77 | 2d 73 63 72 6f 6c 6c 2d |(min new|-scroll-|
|00000e90| 76 61 6c 75 65 20 28 74 | 65 2d 6d 61 78 2d 76 2d |value (t|e-max-v-|
|00000ea0| 73 63 72 6f 6c 6c 20 74 | 65 29 29 29 29 0d 20 20 |scroll t|e)))).  |
|00000eb0| 20 20 28 23 5f 54 45 53 | 63 72 6f 6c 6c 20 30 20 |  (#_TES|croll 0 |
|00000ec0| 28 2d 20 28 74 65 2d 76 | 2d 73 63 72 6f 6c 6c 2d |(- (te-v|-scroll-|
|00000ed0| 76 61 6c 75 65 20 74 65 | 29 20 6e 65 77 2d 73 63 |value te|) new-sc|
|00000ee0| 72 6f 6c 6c 2d 76 61 6c | 75 65 29 20 28 74 65 2d |roll-val|ue) (te-|
|00000ef0| 68 54 45 20 74 65 29 29 | 0d 20 20 20 20 28 74 65 |hTE te))|.    (te|
|00000f00| 2d 75 70 64 61 74 65 2d | 73 63 72 6f 6c 6c 2d 76 |-update-|scroll-v|
|00000f10| 61 6c 75 65 20 74 65 20 | 3a 76 65 72 74 69 63 61 |alue te |:vertica|
|00000f20| 6c 29 29 29 0d 0d 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |l)))..;;|;;;;;;;;|
|00000f30| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000f40| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000f50| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000f60| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 0d 3b 3b 68 |;;;;;;;;|;;;;.;;h|
|00000f70| 6f 72 69 7a 6f 6e 74 61 | 6c 20 73 63 72 6f 6c 6c |orizonta|l scroll|
|00000f80| 69 6e 67 0d 0d 28 64 65 | 66 6d 65 74 68 6f 64 20 |ing..(de|fmethod |
|00000f90| 74 65 2d 63 61 6c 63 2d | 6d 61 78 2d 68 2d 73 63 |te-calc-|max-h-sc|
|00000fa0| 72 6f 6c 6c 20 28 28 74 | 65 20 74 65 2d 62 6c 6f |roll ((t|e te-blo|
|00000fb0| 62 29 29 0d 20 20 28 74 | 65 2d 6d 61 78 2d 68 2d |b)).  (t|e-max-h-|
|00000fc0| 73 63 72 6f 6c 6c 20 74 | 65 29 29 0d 0d 28 64 65 |scroll t|e))..(de|
|00000fd0| 66 6d 65 74 68 6f 64 20 | 74 65 2d 68 2d 73 63 72 |fmethod |te-h-scr|
|00000fe0| 6f 6c 6c 2d 76 61 6c 75 | 65 20 28 28 74 65 20 74 |oll-valu|e ((te t|
|00000ff0| 65 2d 62 6c 6f 62 29 29 | 0d 20 20 28 77 69 74 68 |e-blob))|.  (with|
|00001000| 2d 6d 61 63 70 74 72 73 | 20 28 28 68 54 45 20 28 |-macptrs| ((hTE (|
|00001010| 74 65 2d 68 54 45 20 74 | 65 29 29 29 0d 20 20 20 |te-hTE t|e))).   |
|00001020| 20 28 2d 20 28 68 72 65 | 66 20 68 54 45 20 3a 54 | (- (hre|f hTE :T|
|00001030| 45 52 65 63 2e 76 69 65 | 77 52 65 63 74 2e 6c 65 |ERec.vie|wRect.le|
|00001040| 66 74 29 20 28 68 72 65 | 66 20 68 54 45 20 3a 54 |ft) (hre|f hTE :T|
|00001050| 45 52 65 63 2e 64 65 73 | 74 52 65 63 74 2e 6c 65 |ERec.des|tRect.le|
|00001060| 66 74 29 29 29 29 0d 0d | 28 64 65 66 6d 65 74 68 |ft))))..|(defmeth|
|00001070| 6f 64 20 28 73 65 74 66 | 20 74 65 2d 68 2d 73 63 |od (setf| te-h-sc|
|00001080| 72 6f 6c 6c 2d 76 61 6c | 75 65 29 20 28 6e 65 77 |roll-val|ue) (new|
|00001090| 2d 73 63 72 6f 6c 6c 2d | 76 61 6c 75 65 20 28 74 |-scroll-|value (t|
|000010a0| 65 20 74 65 2d 62 6c 6f | 62 29 29 0d 20 20 28 70 |e te-blo|b)).  (p|
|000010b0| 72 6f 67 31 0d 20 20 20 | 20 28 73 65 74 66 20 6e |rog1.   | (setf n|
|000010c0| 65 77 2d 73 63 72 6f 6c | 6c 2d 76 61 6c 75 65 20 |ew-scrol|l-value |
|000010d0| 28 6d 61 78 20 30 20 28 | 6d 69 6e 20 6e 65 77 2d |(max 0 (|min new-|
|000010e0| 73 63 72 6f 6c 6c 2d 76 | 61 6c 75 65 20 28 74 65 |scroll-v|alue (te|
|000010f0| 2d 6d 61 78 2d 68 2d 73 | 63 72 6f 6c 6c 20 74 65 |-max-h-s|croll te|
|00001100| 29 29 29 29 0d 20 20 20 | 20 28 23 5f 54 45 53 63 |)))).   | (#_TESc|
|00001110| 72 6f 6c 6c 20 28 2d 20 | 28 74 65 2d 68 2d 73 63 |roll (- |(te-h-sc|
|00001120| 72 6f 6c 6c 2d 76 61 6c | 75 65 20 74 65 29 20 6e |roll-val|ue te) n|
|00001130| 65 77 2d 73 63 72 6f 6c | 6c 2d 76 61 6c 75 65 29 |ew-scrol|l-value)|
|00001140| 20 30 20 28 74 65 2d 68 | 54 45 20 74 65 29 29 0d | 0 (te-h|TE te)).|
|00001150| 20 20 20 20 28 74 65 2d | 75 70 64 61 74 65 2d 73 |    (te-|update-s|
|00001160| 63 72 6f 6c 6c 2d 76 61 | 6c 75 65 20 74 65 20 3a |croll-va|lue te :|
|00001170| 68 6f 72 69 7a 6f 6e 74 | 61 6c 29 29 29 0d 0d 3b |horizont|al)))..;|
|00001180| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00001190| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000011a0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000011b0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000011c0| 3b 3b 3b 3b 3b 0d 0d 28 | 64 65 66 6d 65 74 68 6f |;;;;;..(|defmetho|
|000011d0| 64 20 74 65 2d 75 70 64 | 61 74 65 2d 73 63 72 6f |d te-upd|ate-scro|
|000011e0| 6c 6c 2d 76 61 6c 75 65 | 20 28 28 74 65 20 74 65 |ll-value| ((te te|
|000011f0| 2d 62 6c 6f 62 29 20 64 | 69 72 65 63 74 69 6f 6e |-blob) d|irection|
|00001200| 29 0d 20 20 28 77 68 65 | 6e 20 28 73 6c 6f 74 2d |).  (whe|n (slot-|
|00001210| 62 6f 75 6e 64 70 20 74 | 65 20 27 74 65 2d 73 63 |boundp t|e 'te-sc|
|00001220| 72 6f 6c 6c 2d 76 61 6c | 75 65 2d 66 6e 29 0d 20 |roll-val|ue-fn). |
|00001230| 20 20 20 28 65 63 61 73 | 65 20 64 69 72 65 63 74 |   (ecas|e direct|
|00001240| 69 6f 6e 0d 20 20 20 20 | 20 20 28 3a 76 65 72 74 |ion.    |  (:vert|
|00001250| 69 63 61 6c 0d 20 20 20 | 20 20 20 20 28 66 75 6e |ical.   |    (fun|
|00001260| 63 61 6c 6c 20 28 74 65 | 2d 73 63 72 6f 6c 6c 2d |call (te|-scroll-|
|00001270| 76 61 6c 75 65 2d 66 6e | 20 74 65 29 20 3a 76 65 |value-fn| te) :ve|
|00001280| 72 74 69 63 61 6c 20 20 | 20 28 74 65 2d 76 2d 73 |rtical  | (te-v-s|
|00001290| 63 72 6f 6c 6c 2d 76 61 | 6c 75 65 20 74 65 29 29 |croll-va|lue te))|
|000012a0| 29 0d 20 20 20 20 20 20 | 28 3a 68 6f 72 69 7a 6f |).      |(:horizo|
|000012b0| 6e 74 61 6c 0d 20 20 20 | 20 20 20 20 28 66 75 6e |ntal.   |    (fun|
|000012c0| 63 61 6c 6c 20 28 74 65 | 2d 73 63 72 6f 6c 6c 2d |call (te|-scroll-|
|000012d0| 76 61 6c 75 65 2d 66 6e | 20 74 65 29 20 3a 68 6f |value-fn| te) :ho|
|000012e0| 72 69 7a 6f 6e 74 61 6c | 20 28 74 65 2d 68 2d 73 |rizontal| (te-h-s|
|000012f0| 63 72 6f 6c 6c 2d 76 61 | 6c 75 65 20 74 65 29 29 |croll-va|lue te))|
|00001300| 29 29 29 29 0d 0d 28 64 | 65 66 6d 65 74 68 6f 64 |))))..(d|efmethod|
|00001310| 20 74 65 2d 75 70 64 61 | 74 65 2d 73 63 72 6f 6c | te-upda|te-scrol|
|00001320| 6c 2d 6c 69 6d 69 74 20 | 28 28 74 65 20 74 65 2d |l-limit |((te te-|
|00001330| 62 6c 6f 62 29 20 64 69 | 72 65 63 74 69 6f 6e 29 |blob) di|rection)|
|00001340| 0d 20 20 28 77 68 65 6e | 20 28 73 6c 6f 74 2d 62 |.  (when| (slot-b|
|00001350| 6f 75 6e 64 70 20 74 65 | 20 27 74 65 2d 73 63 72 |oundp te| 'te-scr|
|00001360| 6f 6c 6c 2d 6c 69 6d 69 | 74 2d 66 6e 29 0d 20 20 |oll-limi|t-fn).  |
|00001370| 20 20 28 65 63 61 73 65 | 20 64 69 72 65 63 74 69 |  (ecase| directi|
|00001380| 6f 6e 0d 20 20 20 20 20 | 20 28 3a 76 65 72 74 69 |on.     | (:verti|
|00001390| 63 61 6c 0d 20 20 20 20 | 20 20 20 28 74 65 2d 63 |cal.    |   (te-c|
|000013a0| 61 6c 63 2d 6d 61 78 2d | 76 2d 73 63 72 6f 6c 6c |alc-max-|v-scroll|
|000013b0| 20 74 65 29 0d 20 20 20 | 20 20 20 20 28 66 75 6e | te).   |    (fun|
|000013c0| 63 61 6c 6c 20 28 74 65 | 2d 73 63 72 6f 6c 6c 2d |call (te|-scroll-|
|000013d0| 6c 69 6d 69 74 2d 66 6e | 20 74 65 29 20 3a 76 65 |limit-fn| te) :ve|
|000013e0| 72 74 69 63 61 6c 20 28 | 74 65 2d 6d 61 78 2d 76 |rtical (|te-max-v|
|000013f0| 2d 73 63 72 6f 6c 6c 20 | 74 65 29 29 29 0d 20 20 |-scroll |te))).  |
|00001400| 20 20 20 20 28 3a 68 6f | 72 69 7a 6f 6e 74 61 6c |    (:ho|rizontal|
|00001410| 0d 20 20 20 20 20 20 20 | 28 74 65 2d 63 61 6c 63 |.       |(te-calc|
|00001420| 2d 6d 61 78 2d 68 2d 73 | 63 72 6f 6c 6c 20 74 65 |-max-h-s|croll te|
|00001430| 29 0d 20 20 20 20 20 20 | 20 28 66 75 6e 63 61 6c |).      | (funcal|
|00001440| 6c 20 28 74 65 2d 73 63 | 72 6f 6c 6c 2d 6c 69 6d |l (te-sc|roll-lim|
|00001450| 69 74 2d 66 6e 20 74 65 | 29 20 3a 68 6f 72 69 7a |it-fn te|) :horiz|
|00001460| 6f 6e 74 61 6c 20 28 74 | 65 2d 6d 61 78 2d 68 2d |ontal (t|e-max-h-|
|00001470| 73 63 72 6f 6c 6c 20 74 | 65 29 29 29 29 29 29 0d |scroll t|e)))))).|
|00001480| 0d 28 64 65 66 6d 65 74 | 68 6f 64 20 74 65 2d 75 |.(defmet|hod te-u|
|00001490| 70 64 61 74 65 20 28 28 | 74 65 20 74 65 2d 62 6c |pdate ((|te te-bl|
|000014a0| 6f 62 29 29 0d 20 20 28 | 23 5f 54 45 43 61 6c 54 |ob)).  (|#_TECalT|
|000014b0| 65 78 74 20 28 74 65 2d | 68 54 45 20 74 65 29 29 |ext (te-|hTE te))|
|000014c0| 0d 20 20 28 74 65 2d 75 | 70 64 61 74 65 2d 73 63 |.  (te-u|pdate-sc|
|000014d0| 72 6f 6c 6c 2d 6c 69 6d | 69 74 20 74 65 20 3a 76 |roll-lim|it te :v|
|000014e0| 65 72 74 69 63 61 6c 29 | 0d 20 20 28 74 65 2d 75 |ertical)|.  (te-u|
|000014f0| 70 64 61 74 65 2d 73 63 | 72 6f 6c 6c 2d 76 61 6c |pdate-sc|roll-val|
|00001500| 75 65 20 74 65 20 3a 76 | 65 72 74 69 63 61 6c 29 |ue te :v|ertical)|
|00001510| 0d 20 20 28 74 65 2d 75 | 70 64 61 74 65 2d 73 63 |.  (te-u|pdate-sc|
|00001520| 72 6f 6c 6c 2d 6c 69 6d | 69 74 20 74 65 20 3a 68 |roll-lim|it te :h|
|00001530| 6f 72 69 7a 6f 6e 74 61 | 6c 29 0d 20 20 28 74 65 |orizonta|l).  (te|
|00001540| 2d 75 70 64 61 74 65 2d | 73 63 72 6f 6c 6c 2d 76 |-update-|scroll-v|
|00001550| 61 6c 75 65 20 74 65 20 | 3a 68 6f 72 69 7a 6f 6e |alue te |:horizon|
|00001560| 74 61 6c 29 29 0d 0d 3b | 3b 3b 3b 3b 3b 3b 3b 3b |tal))..;|;;;;;;;;|
|00001570| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00001580| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00001590| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000015a0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 0d 0d 0d |;;;;;;;;|;;;;;...|
|000015b0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000015c0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000015d0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000015e0| 3b 3b 0d 3b 3b 74 65 78 | 74 20 70 6f 73 69 74 69 |;;.;;tex|t positi|
|000015f0| 6f 6e 0d 0d 28 64 65 66 | 6d 65 74 68 6f 64 20 74 |on..(def|method t|
|00001600| 65 2d 63 6f 72 6e 65 72 | 73 20 28 28 74 65 20 74 |e-corner|s ((te t|
|00001610| 65 2d 62 6c 6f 62 29 29 | 0d 20 20 28 77 69 74 68 |e-blob))|.  (with|
|00001620| 2d 6d 61 63 70 74 72 73 | 20 28 28 68 54 45 20 28 |-macptrs| ((hTE (|
|00001630| 74 65 2d 68 54 45 20 74 | 65 29 29 29 0d 20 20 20 |te-hTE t|e))).   |
|00001640| 20 28 76 61 6c 75 65 73 | 20 28 68 72 65 66 20 68 | (values| (href h|
|00001650| 54 45 20 3a 54 45 52 65 | 63 2e 76 69 65 77 52 65 |TE :TERe|c.viewRe|
|00001660| 63 74 2e 74 6f 70 4c 65 | 66 74 29 20 28 68 72 65 |ct.topLe|ft) (hre|
|00001670| 66 20 68 54 45 20 3a 54 | 45 52 65 63 2e 76 69 65 |f hTE :T|ERec.vie|
|00001680| 77 52 65 63 74 2e 62 6f | 74 52 69 67 68 74 29 29 |wRect.bo|tRight))|
|00001690| 29 29 0d 0d 28 64 65 66 | 6d 65 74 68 6f 64 20 73 |))..(def|method s|
|000016a0| 65 74 2d 74 65 2d 63 6f | 72 6e 65 72 73 20 28 28 |et-te-co|rners ((|
|000016b0| 74 65 20 74 65 2d 62 6c | 6f 62 29 20 74 6f 70 4c |te te-bl|ob) topL|
|000016c0| 65 66 74 20 62 6f 74 52 | 69 67 68 74 29 0d 20 20 |eft botR|ight).  |
|000016d0| 28 77 69 74 68 2d 6d 61 | 63 70 74 72 73 20 28 28 |(with-ma|cptrs ((|
|000016e0| 68 54 45 20 28 74 65 2d | 68 54 45 20 74 65 29 29 |hTE (te-|hTE te))|
|000016f0| 29 0d 20 20 20 20 28 6d | 75 6c 74 69 70 6c 65 2d |).    (m|ultiple-|
|00001700| 76 61 6c 75 65 2d 62 69 | 6e 64 20 28 6f 6c 64 2d |value-bi|nd (old-|
|00001710| 74 6c 20 6f 6c 64 2d 62 | 72 29 20 28 74 65 2d 63 |tl old-b|r) (te-c|
|00001720| 6f 72 6e 65 72 73 20 74 | 65 29 0d 20 20 20 20 20 |orners t|e).     |
|00001730| 20 28 6c 65 74 20 28 28 | 64 2d 74 6c 20 28 73 75 | (let ((|d-tl (su|
|00001740| 62 74 72 61 63 74 2d 70 | 6f 69 6e 74 73 20 28 68 |btract-p|oints (h|
|00001750| 72 65 66 20 68 54 45 20 | 3a 54 45 52 65 63 2e 64 |ref hTE |:TERec.d|
|00001760| 65 73 74 52 65 63 74 2e | 74 6f 70 4c 65 66 74 29 |estRect.|topLeft)|
|00001770| 20 20 6f 6c 64 2d 74 6c | 29 29 0d 20 20 20 20 20 |  old-tl|)).     |
|00001780| 20 20 20 20 20 20 20 28 | 64 2d 62 72 20 28 73 75 |       (|d-br (su|
|00001790| 62 74 72 61 63 74 2d 70 | 6f 69 6e 74 73 20 28 68 |btract-p|oints (h|
|000017a0| 72 65 66 20 68 54 45 20 | 3a 54 45 52 65 63 2e 64 |ref hTE |:TERec.d|
|000017b0| 65 73 74 52 65 63 74 2e | 62 6f 74 52 69 67 68 74 |estRect.|botRight|
|000017c0| 29 20 6f 6c 64 2d 62 72 | 29 29 29 0d 20 20 20 20 |) old-br|))).    |
|000017d0| 20 20 20 20 28 68 73 65 | 74 20 68 54 45 20 3a 54 |    (hse|t hTE :T|
|000017e0| 45 52 65 63 2e 76 69 65 | 77 52 65 63 74 2e 74 6f |ERec.vie|wRect.to|
|000017f0| 70 4c 65 66 74 20 20 74 | 6f 70 4c 65 66 74 29 0d |pLeft  t|opLeft).|
|00001800| 20 20 20 20 20 20 20 20 | 28 68 73 65 74 20 68 54 |        |(hset hT|
|00001810| 45 20 3a 54 45 52 65 63 | 2e 76 69 65 77 52 65 63 |E :TERec|.viewRec|
|00001820| 74 2e 62 6f 74 52 69 67 | 68 74 20 62 6f 74 52 69 |t.botRig|ht botRi|
|00001830| 67 68 74 29 0d 20 20 20 | 20 20 20 20 20 28 68 73 |ght).   |     (hs|
|00001840| 65 74 20 68 54 45 20 3a | 54 45 52 65 63 2e 64 65 |et hTE :|TERec.de|
|00001850| 73 74 52 65 63 74 2e 74 | 6f 70 4c 65 66 74 20 20 |stRect.t|opLeft  |
|00001860| 28 61 64 64 2d 70 6f 69 | 6e 74 73 20 74 6f 70 4c |(add-poi|nts topL|
|00001870| 65 66 74 20 20 64 2d 74 | 6c 29 29 0d 20 20 20 20 |eft  d-t|l)).    |
|00001880| 20 20 20 20 28 68 73 65 | 74 20 68 54 45 20 3a 54 |    (hse|t hTE :T|
|00001890| 45 52 65 63 2e 64 65 73 | 74 52 65 63 74 2e 62 6f |ERec.des|tRect.bo|
|000018a0| 74 52 69 67 68 74 20 28 | 61 64 64 2d 70 6f 69 6e |tRight (|add-poin|
|000018b0| 74 73 20 62 6f 74 52 69 | 67 68 74 20 64 2d 62 72 |ts botRi|ght d-br|
|000018c0| 29 29 29 0d 20 20 20 20 | 20 20 28 74 65 2d 75 70 |))).    |  (te-up|
|000018d0| 64 61 74 65 20 74 65 29 | 0d 20 20 20 20 20 20 28 |date te)|.      (|
|000018e0| 76 61 6c 75 65 73 20 74 | 6f 70 4c 65 66 74 20 62 |values t|opLeft b|
|000018f0| 6f 74 52 69 67 68 74 29 | 29 29 29 0d 0d 3b 3b 3b |otRight)|)))..;;;|
|00001900| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00001910| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00001920| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 0d |;;;;;;;;|;;;;;;;.|
|00001930| 3b 3b 74 65 78 74 20 66 | 6f 6e 74 0d 0d 28 64 65 |;;text f|ont..(de|
|00001940| 66 6d 65 74 68 6f 64 20 | 74 65 2d 73 65 74 2d 66 |fmethod |te-set-f|
|00001950| 6f 6e 74 20 28 28 74 65 | 20 74 65 2d 62 6c 6f 62 |ont ((te| te-blob|
|00001960| 29 20 66 6f 6e 74 2d 73 | 70 65 63 20 26 6b 65 79 |) font-s|pec &key|
|00001970| 20 28 66 6f 6e 74 2d 63 | 6f 6c 6f 72 20 2a 62 6c | (font-c|olor *bl|
|00001980| 61 63 6b 2d 63 6f 6c 6f | 72 2a 29 20 28 6d 6f 64 |ack-colo|r*) (mod|
|00001990| 65 20 23 24 64 6f 41 6c | 6c 29 29 0d 20 20 28 6d |e #$doAl|l)).  (m|
|000019a0| 75 6c 74 69 70 6c 65 2d | 76 61 6c 75 65 2d 62 69 |ultiple-|value-bi|
|000019b0| 6e 64 20 28 66 66 20 6d | 73 29 20 28 66 6f 6e 74 |nd (ff m|s) (font|
|000019c0| 2d 63 6f 64 65 73 20 66 | 6f 6e 74 2d 73 70 65 63 |-codes f|ont-spec|
|000019d0| 29 0d 20 20 20 20 28 72 | 6c 65 74 20 28 28 74 73 |).    (r|let ((ts|
|000019e0| 20 3a 54 65 78 74 53 74 | 79 6c 65 0d 20 20 20 20 | :TextSt|yle.    |
|000019f0| 20 20 20 20 20 20 20 20 | 20 20 20 3a 74 73 46 6f |        |   :tsFo|
|00001a00| 6e 74 20 20 20 20 20 20 | 20 20 28 23 5f 48 69 57 |nt      |  (#_HiW|
|00001a10| 6f 72 64 20 66 66 29 0d | 20 20 20 20 20 20 20 20 |ord ff).|        |
|00001a20| 20 20 20 20 20 20 20 3a | 74 73 46 61 63 65 20 20 |       :|tsFace  |
|00001a30| 20 20 20 20 20 20 28 61 | 73 68 20 28 23 5f 4c 6f |      (a|sh (#_Lo|
|00001a40| 57 6f 72 64 20 66 66 29 | 20 2d 38 29 0d 20 20 20 |Word ff)| -8).   |
|00001a50| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a 74 73 53 |        |    :tsS|
|00001a60| 69 7a 65 20 20 20 20 20 | 20 20 20 28 23 5f 4c 6f |ize     |   (#_Lo|
|00001a70| 57 6f 72 64 20 6d 73 29 | 0d 20 20 20 20 20 20 20 |Word ms)|.       |
|00001a80| 20 20 20 20 20 20 20 20 | 3a 74 73 43 6f 6c 6f 72 |        |:tsColor|
|00001a90| 2e 72 65 64 20 20 20 28 | 63 6f 6c 6f 72 2d 72 65 |.red   (|color-re|
|00001aa0| 64 20 66 6f 6e 74 2d 63 | 6f 6c 6f 72 29 0d 20 20 |d font-c|olor).  |
|00001ab0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 74 73 |        |     :ts|
|00001ac0| 43 6f 6c 6f 72 2e 67 72 | 65 65 6e 20 28 63 6f 6c |Color.gr|een (col|
|00001ad0| 6f 72 2d 67 72 65 65 6e | 20 66 6f 6e 74 2d 63 6f |or-green| font-co|
|00001ae0| 6c 6f 72 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |lor).   |        |
|00001af0| 20 20 20 20 3a 74 73 43 | 6f 6c 6f 72 2e 62 6c 75 |    :tsC|olor.blu|
|00001b00| 65 20 20 28 63 6f 6c 6f | 72 2d 62 6c 75 65 20 66 |e  (colo|r-blue f|
|00001b10| 6f 6e 74 2d 63 6f 6c 6f | 72 29 29 29 0d 20 20 20 |ont-colo|r))).   |
|00001b20| 20 20 20 28 23 5f 54 45 | 53 65 74 53 74 79 6c 65 |   (#_TE|SetStyle|
|00001b30| 20 6d 6f 64 65 20 74 73 | 20 74 20 28 74 65 2d 68 | mode ts| t (te-h|
|00001b40| 54 45 20 74 65 29 29 0d | 20 20 20 20 20 20 28 23 |TE te)).|      (#|
|00001b50| 5f 54 45 53 65 6c 56 69 | 65 77 20 28 74 65 2d 68 |_TESelVi|ew (te-h|
|00001b60| 54 45 20 74 65 29 29 29 | 29 0d 20 20 28 74 65 2d |TE te)))|).  (te-|
|00001b70| 75 70 64 61 74 65 20 74 | 65 29 0d 20 20 66 6f 6e |update t|e).  fon|
|00001b80| 74 2d 73 70 65 63 29 0d | 0d 3b 3b 3b 3b 3b 3b 3b |t-spec).|.;;;;;;;|
|00001b90| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00001ba0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00001bb0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 0d 3b 3b 74 65 |;;;;;;;;|;;;.;;te|
|00001bc0| 78 74 20 6a 75 73 74 69 | 66 69 63 61 74 69 6f 6e |xt justi|fication|
|00001bd0| 0d 0d 28 64 65 66 6d 65 | 74 68 6f 64 20 74 65 2d |..(defme|thod te-|
|00001be0| 6a 75 73 74 20 28 28 74 | 65 20 74 65 2d 62 6c 6f |just ((t|e te-blo|
|00001bf0| 62 29 29 0d 20 20 28 65 | 63 61 73 65 20 28 68 72 |b)).  (e|case (hr|
|00001c00| 65 66 20 28 74 65 2d 68 | 54 45 20 74 65 29 20 3a |ef (te-h|TE te) :|
|00001c10| 54 45 52 65 63 2e 6a 75 | 73 74 29 0d 20 20 20 20 |TERec.ju|st).    |
|00001c20| 28 23 2e 23 24 74 65 46 | 6c 75 73 68 44 65 66 61 |(#.#$teF|lushDefa|
|00001c30| 75 6c 74 20 3a 64 65 66 | 61 75 6c 74 29 0d 20 20 |ult :def|ault).  |
|00001c40| 20 20 28 23 2e 23 24 74 | 65 43 65 6e 74 65 72 20 |  (#.#$t|eCenter |
|00001c50| 20 20 20 20 20 20 3a 63 | 65 6e 74 65 72 29 0d 20 |      :c|enter). |
|00001c60| 20 20 20 28 23 2e 23 24 | 74 65 46 6c 75 73 68 52 |   (#.#$|teFlushR|
|00001c70| 69 67 68 74 20 20 20 3a | 72 69 67 68 74 29 0d 20 |ight   :|right). |
|00001c80| 20 20 20 28 23 2e 23 24 | 74 65 46 6c 75 73 68 4c |   (#.#$|teFlushL|
|00001c90| 65 66 74 20 20 20 20 3a | 6c 65 66 74 29 29 29 0d |eft    :|left))).|
|00001ca0| 0d 28 64 65 66 6d 65 74 | 68 6f 64 20 28 73 65 74 |.(defmet|hod (set|
|00001cb0| 66 20 74 65 2d 6a 75 73 | 74 29 20 28 6e 65 77 2d |f te-jus|t) (new-|
|00001cc0| 74 65 2d 6a 75 73 74 20 | 28 74 65 20 74 65 2d 62 |te-just |(te te-b|
|00001cd0| 6c 6f 62 29 29 0d 20 20 | 28 23 5f 54 45 53 65 74 |lob)).  |(#_TESet|
|00001ce0| 4a 75 73 74 0d 20 20 20 | 28 65 63 61 73 65 20 6e |Just.   |(ecase n|
|00001cf0| 65 77 2d 74 65 2d 6a 75 | 73 74 0d 20 20 20 20 20 |ew-te-ju|st.     |
|00001d00| 28 3a 64 65 66 61 75 6c | 74 20 23 24 74 65 46 6c |(:defaul|t #$teFl|
|00001d10| 75 73 68 44 65 66 61 75 | 6c 74 29 0d 20 20 20 20 |ushDefau|lt).    |
|00001d20| 20 28 3a 63 65 6e 74 65 | 72 20 20 23 24 74 65 43 | (:cente|r  #$teC|
|00001d30| 65 6e 74 65 72 29 0d 20 | 20 20 20 20 28 3a 72 69 |enter). |    (:ri|
|00001d40| 67 68 74 20 20 20 23 24 | 74 65 46 6c 75 73 68 52 |ght   #$|teFlushR|
|00001d50| 69 67 68 74 29 0d 20 20 | 20 20 20 28 3a 6c 65 66 |ight).  |   (:lef|
|00001d60| 74 20 20 20 20 23 24 74 | 65 46 6c 75 73 68 4c 65 |t    #$t|eFlushLe|
|00001d70| 66 74 29 29 0d 20 20 20 | 28 74 65 2d 68 54 45 20 |ft)).   |(te-hTE |
|00001d80| 74 65 29 29 0d 20 20 28 | 74 65 2d 75 70 64 61 74 |te)).  (|te-updat|
|00001d90| 65 20 74 65 29 0d 20 20 | 6e 65 77 2d 74 65 2d 6a |e te).  |new-te-j|
|00001da0| 75 73 74 29 0d 0d 0d 3b | 3b 3b 3b 3b 3b 3b 3b 3b |ust)...;|;;;;;;;;|
|00001db0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00001dc0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00001dd0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 0d 3b 3b 77 6f 72 64 |;;;;;;;;|;.;;word|
|00001de0| 20 77 72 61 70 0d 0d 28 | 64 65 66 6d 65 74 68 6f | wrap..(|defmetho|
|00001df0| 64 20 74 65 2d 77 6f 72 | 64 2d 77 72 61 70 2d 70 |d te-wor|d-wrap-p|
|00001e00| 20 28 28 74 65 20 74 65 | 2d 62 6c 6f 62 29 29 0d | ((te te|-blob)).|
|00001e10| 20 20 28 65 63 61 73 65 | 20 28 68 72 65 66 20 28 |  (ecase| (href (|
|00001e20| 74 65 2d 68 54 45 20 74 | 65 29 20 3a 54 45 52 65 |te-hTE t|e) :TERe|
|00001e30| 63 2e 63 72 4f 6e 6c 79 | 29 0d 20 20 20 20 28 2d |c.crOnly|).    (-|
|00001e40| 31 20 6e 69 6c 29 0d 20 | 20 20 20 28 20 30 20 74 |1 nil). |   ( 0 t|
|00001e50| 29 29 29 0d 0d 28 64 65 | 66 6d 65 74 68 6f 64 20 |)))..(de|fmethod |
|00001e60| 28 73 65 74 66 20 74 65 | 2d 77 6f 72 64 2d 77 72 |(setf te|-word-wr|
|00001e70| 61 70 2d 70 29 20 28 77 | 72 61 70 2d 70 20 28 74 |ap-p) (w|rap-p (t|
|00001e80| 65 20 74 65 2d 62 6c 6f | 62 29 29 0d 20 20 28 68 |e te-blo|b)).  (h|
|00001e90| 73 65 74 20 28 74 65 2d | 68 54 45 20 74 65 29 20 |set (te-|hTE te) |
|00001ea0| 3a 54 45 52 65 63 2e 63 | 72 4f 6e 6c 79 20 28 69 |:TERec.c|rOnly (i|
|00001eb0| 66 20 77 72 61 70 2d 70 | 20 30 20 2d 31 29 29 0d |f wrap-p| 0 -1)).|
|00001ec0| 20 20 28 74 65 2d 75 70 | 64 61 74 65 20 74 65 29 |  (te-up|date te)|
|00001ed0| 0d 20 20 77 72 61 70 2d | 70 29 0d 0d 0d 3b 3b 3b |.  wrap-|p)...;;;|
|00001ee0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00001ef0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00001f00| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00001f10| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00001f20| 3b 3b 3b 0d 3b 3b 20 65 | 76 65 6e 74 20 68 61 6e |;;;.;; e|vent han|
|00001f30| 64 6c 65 72 73 0d 0d 28 | 64 65 66 6d 65 74 68 6f |dlers..(|defmetho|
|00001f40| 64 20 74 65 2d 63 6c 69 | 63 6b 2d 68 61 6e 64 6c |d te-cli|ck-handl|
|00001f50| 65 72 20 28 28 74 65 20 | 74 65 2d 62 6c 6f 62 29 |er ((te |te-blob)|
|00001f60| 20 77 68 65 72 65 20 26 | 6b 65 79 20 28 65 78 74 | where &|key (ext|
|00001f70| 65 6e 64 2d 70 20 28 73 | 68 69 66 74 2d 6b 65 79 |end-p (s|hift-key|
|00001f80| 2d 70 29 29 29 0d 20 20 | 28 6c 65 74 20 28 28 2a |-p))).  |(let ((*|
|00001f90| 74 65 2d 63 75 72 72 65 | 6e 74 2d 62 6c 6f 62 2a |te-curre|nt-blob*|
|00001fa0| 20 74 65 29 29 0d 20 20 | 20 20 28 64 65 63 6c 61 | te)).  |  (decla|
|00001fb0| 72 65 20 28 73 70 65 63 | 69 61 6c 20 2a 74 65 2d |re (spec|ial *te-|
|00001fc0| 63 75 72 72 65 6e 74 2d | 62 6c 6f 62 2a 29 29 0d |current-|blob*)).|
|00001fd0| 20 20 20 20 28 72 6c 65 | 74 20 28 28 2a 74 65 2d |    (rle|t ((*te-|
|00001fe0| 76 69 65 77 2d 72 65 63 | 74 2a 20 3a 52 65 63 74 |view-rec|t* :Rect|
|00001ff0| 29 29 0d 20 20 20 20 20 | 20 28 64 65 63 6c 61 72 |)).     | (declar|
|00002000| 65 20 28 73 70 65 63 69 | 61 6c 20 2a 74 65 2d 76 |e (speci|al *te-v|
|00002010| 69 65 77 2d 72 65 63 74 | 2a 29 29 0d 20 20 20 20 |iew-rect|*)).    |
|00002020| 20 20 28 6d 75 6c 74 69 | 70 6c 65 2d 76 61 6c 75 |  (multi|ple-valu|
|00002030| 65 2d 62 69 6e 64 20 28 | 74 6f 70 4c 65 66 74 20 |e-bind (|topLeft |
|00002040| 62 6f 74 52 69 67 68 74 | 29 20 28 74 65 2d 63 6f |botRight|) (te-co|
|00002050| 72 6e 65 72 73 20 74 65 | 29 0d 20 20 20 20 20 20 |rners te|).      |
|00002060| 20 20 28 70 73 65 74 20 | 2a 74 65 2d 76 69 65 77 |  (pset |*te-view|
|00002070| 2d 72 65 63 74 2a 20 3a | 52 65 63 74 2e 74 6f 70 |-rect* :|Rect.top|
|00002080| 4c 65 66 74 20 74 6f 70 | 4c 65 66 74 29 0d 20 20 |Left top|Left).  |
|00002090| 20 20 20 20 20 20 28 70 | 73 65 74 20 2a 74 65 2d |      (p|set *te-|
|000020a0| 76 69 65 77 2d 72 65 63 | 74 2a 20 3a 52 65 63 74 |view-rec|t* :Rect|
|000020b0| 2e 62 6f 74 52 69 67 68 | 74 20 62 6f 74 52 69 67 |.botRigh|t botRig|
|000020c0| 68 74 29 0d 20 20 20 20 | 20 20 20 20 28 77 69 74 |ht).    |    (wit|
|000020d0| 68 2d 63 6c 69 70 2d 72 | 65 63 74 20 2a 74 65 2d |h-clip-r|ect *te-|
|000020e0| 76 69 65 77 2d 72 65 63 | 74 2a 0d 20 20 20 20 20 |view-rec|t*.     |
|000020f0| 20 20 20 20 20 28 23 5f | 54 45 43 6c 69 63 6b 20 |     (#_|TEClick |
|00002100| 77 68 65 72 65 20 65 78 | 74 65 6e 64 2d 70 20 28 |where ex|tend-p (|
|00002110| 74 65 2d 68 54 45 20 74 | 65 29 29 29 29 29 29 29 |te-hTE t|e)))))))|
|00002120| 0d 0d 28 64 65 66 6d 65 | 74 68 6f 64 20 74 65 2d |..(defme|thod te-|
|00002130| 6b 65 79 20 28 28 74 65 | 20 74 65 2d 62 6c 6f 62 |key ((te| te-blob|
|00002140| 29 20 63 68 61 72 29 0d | 20 20 28 23 5f 54 45 53 |) char).|  (#_TES|
|00002150| 65 6c 56 69 65 77 20 28 | 74 65 2d 68 54 45 20 74 |elView (|te-hTE t|
|00002160| 65 29 29 0d 20 20 28 23 | 5f 54 45 4b 65 79 20 63 |e)).  (#|_TEKey c|
|00002170| 68 61 72 20 28 74 65 2d | 68 54 45 20 74 65 29 29 |har (te-|hTE te))|
|00002180| 0d 20 20 28 74 65 2d 75 | 70 64 61 74 65 20 74 65 |.  (te-u|pdate te|
|00002190| 29 29 0d 0d 28 64 65 66 | 6d 65 74 68 6f 64 20 74 |))..(def|method t|
|000021a0| 65 2d 69 64 6c 65 20 28 | 28 74 65 20 74 65 2d 62 |e-idle (|(te te-b|
|000021b0| 6c 6f 62 29 29 0d 20 20 | 28 23 5f 54 45 49 64 6c |lob)).  |(#_TEIdl|
|000021c0| 65 20 28 74 65 2d 68 54 | 45 20 74 65 29 29 29 0d |e (te-hT|E te))).|
|000021d0| 0d 28 64 65 66 6d 65 74 | 68 6f 64 20 74 65 2d 61 |.(defmet|hod te-a|
|000021e0| 63 74 69 76 61 74 65 20 | 28 28 74 65 20 74 65 2d |ctivate |((te te-|
|000021f0| 62 6c 6f 62 29 29 0d 20 | 20 28 23 5f 54 45 41 63 |blob)). | (#_TEAc|
|00002200| 74 69 76 61 74 65 20 28 | 74 65 2d 68 54 45 20 74 |tivate (|te-hTE t|
|00002210| 65 29 29 29 0d 0d 28 64 | 65 66 6d 65 74 68 6f 64 |e)))..(d|efmethod|
|00002220| 20 74 65 2d 64 65 61 63 | 74 69 76 61 74 65 20 28 | te-deac|tivate (|
|00002230| 28 74 65 20 74 65 2d 62 | 6c 6f 62 29 29 0d 20 20 |(te te-b|lob)).  |
|00002240| 28 23 5f 54 45 44 65 61 | 63 74 69 76 61 74 65 20 |(#_TEDea|ctivate |
|00002250| 28 74 65 2d 68 54 45 20 | 74 65 29 29 29 0d 0d 0d |(te-hTE |te)))...|
|00002260| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00002270| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00002280| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00002290| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000022a0| 3b 3b 3b 3b 3b 3b 0d 3b | 3b 20 65 64 69 74 69 6e |;;;;;;.;|; editin|
|000022b0| 67 20 63 6f 6d 6d 61 6e | 64 73 0d 0d 28 64 65 66 |g comman|ds..(def|
|000022c0| 6d 65 74 68 6f 64 20 74 | 65 2d 63 75 74 20 28 28 |method t|e-cut ((|
|000022d0| 74 65 20 74 65 2d 62 6c | 6f 62 29 29 0d 20 20 28 |te te-bl|ob)).  (|
|000022e0| 23 5f 54 45 53 65 6c 56 | 69 65 77 20 28 74 65 2d |#_TESelV|iew (te-|
|000022f0| 68 54 45 20 74 65 29 29 | 0d 20 20 28 23 5f 54 45 |hTE te))|.  (#_TE|
|00002300| 43 75 74 20 28 74 65 2d | 68 54 45 20 74 65 29 29 |Cut (te-|hTE te))|
|00002310| 0d 20 20 28 74 65 2d 75 | 70 64 61 74 65 20 74 65 |.  (te-u|pdate te|
|00002320| 29 29 0d 0d 28 64 65 66 | 6d 65 74 68 6f 64 20 74 |))..(def|method t|
|00002330| 65 2d 63 6f 70 79 20 28 | 28 74 65 20 74 65 2d 62 |e-copy (|(te te-b|
|00002340| 6c 6f 62 29 29 0d 20 20 | 28 23 5f 54 45 53 65 6c |lob)).  |(#_TESel|
|00002350| 56 69 65 77 20 28 74 65 | 2d 68 54 45 20 74 65 29 |View (te|-hTE te)|
|00002360| 29 0d 20 20 28 23 5f 54 | 45 43 6f 70 79 20 28 74 |).  (#_T|ECopy (t|
|00002370| 65 2d 68 54 45 20 74 65 | 29 29 29 0d 0d 28 64 65 |e-hTE te|)))..(de|
|00002380| 66 6d 65 74 68 6f 64 20 | 74 65 2d 70 61 73 74 65 |fmethod |te-paste|
|00002390| 20 28 28 74 65 20 74 65 | 2d 62 6c 6f 62 29 29 0d | ((te te|-blob)).|
|000023a0| 20 20 28 23 5f 54 45 53 | 65 6c 56 69 65 77 20 28 |  (#_TES|elView (|
|000023b0| 74 65 2d 68 54 45 20 74 | 65 29 29 0d 20 20 28 23 |te-hTE t|e)).  (#|
|000023c0| 5f 54 45 53 74 79 6c 50 | 61 73 74 65 20 28 74 65 |_TEStylP|aste (te|
|000023d0| 2d 68 54 45 20 74 65 29 | 29 0d 20 20 28 74 65 2d |-hTE te)|).  (te-|
|000023e0| 75 70 64 61 74 65 20 74 | 65 29 29 0d 0d 28 64 65 |update t|e))..(de|
|000023f0| 66 6d 65 74 68 6f 64 20 | 74 65 2d 63 6c 65 61 72 |fmethod |te-clear|
|00002400| 20 28 28 74 65 20 74 65 | 2d 62 6c 6f 62 29 29 0d | ((te te|-blob)).|
|00002410| 20 20 28 23 5f 54 45 53 | 65 6c 56 69 65 77 20 28 |  (#_TES|elView (|
|00002420| 74 65 2d 68 54 45 20 74 | 65 29 29 0d 20 20 28 23 |te-hTE t|e)).  (#|
|00002430| 5f 54 45 44 65 6c 65 74 | 65 20 28 74 65 2d 68 54 |_TEDelet|e (te-hT|
|00002440| 45 20 74 65 29 29 0d 20 | 20 28 74 65 2d 75 70 64 |E te)). | (te-upd|
|00002450| 61 74 65 20 74 65 29 29 | 0d 0d 0d 3b 3b 3b 3b 3b |ate te))|...;;;;;|
|00002460| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00002470| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00002480| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00002490| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000024a0| 3b 0d 3b 3b 20 73 65 6c | 65 63 74 69 6f 6e 20 63 |;.;; sel|ection c|
|000024b0| 6f 6d 6d 61 6e 64 73 0d | 0d 28 64 65 66 6d 65 74 |ommands.|.(defmet|
|000024c0| 68 6f 64 20 74 65 2d 73 | 65 6c 65 63 74 2d 61 6c |hod te-s|elect-al|
|000024d0| 6c 20 28 28 74 65 20 74 | 65 2d 62 6c 6f 62 29 29 |l ((te t|e-blob))|
|000024e0| 0d 20 20 28 23 5f 54 45 | 53 65 74 53 65 6c 65 63 |.  (#_TE|SetSelec|
|000024f0| 74 20 30 20 36 35 35 33 | 35 20 28 74 65 2d 68 54 |t 0 6553|5 (te-hT|
|00002500| 45 20 74 65 29 29 29 0d | 0d 28 64 65 66 6d 65 74 |E te))).|.(defmet|
|00002510| 68 6f 64 20 74 65 2d 73 | 65 6c 65 63 74 69 6f 6e |hod te-s|election|
|00002520| 20 28 28 74 65 20 74 65 | 2d 62 6c 6f 62 29 29 0d | ((te te|-blob)).|
|00002530| 20 20 28 77 69 74 68 2d | 6d 61 63 70 74 72 73 20 |  (with-|macptrs |
|00002540| 28 28 68 54 45 20 28 74 | 65 2d 68 54 45 20 74 65 |((hTE (t|e-hTE te|
|00002550| 29 29 29 0d 20 20 20 20 | 28 76 61 6c 75 65 73 20 |))).    |(values |
|00002560| 28 68 72 65 66 20 68 54 | 45 20 3a 54 45 52 65 63 |(href hT|E :TERec|
|00002570| 2e 73 65 6c 53 74 61 72 | 74 29 20 28 68 72 65 66 |.selStar|t) (href|
|00002580| 20 68 54 45 20 3a 54 45 | 52 65 63 2e 73 65 6c 45 | hTE :TE|Rec.selE|
|00002590| 6e 64 29 29 29 29 0d 0d | 28 64 65 66 6d 65 74 68 |nd))))..|(defmeth|
|000025a0| 6f 64 20 74 65 2d 73 65 | 74 2d 73 65 6c 65 63 74 |od te-se|t-select|
|000025b0| 69 6f 6e 20 28 28 74 65 | 20 74 65 2d 62 6c 6f 62 |ion ((te| te-blob|
|000025c0| 29 20 73 65 6c 2d 73 74 | 61 72 74 20 73 65 6c 2d |) sel-st|art sel-|
|000025d0| 65 6e 64 29 0d 20 20 28 | 23 5f 54 45 53 65 74 53 |end).  (|#_TESetS|
|000025e0| 65 6c 65 63 74 20 73 65 | 6c 2d 73 74 61 72 74 20 |elect se|l-start |
|000025f0| 73 65 6c 2d 65 6e 64 20 | 28 74 65 2d 68 54 45 20 |sel-end |(te-hTE |
|00002600| 74 65 29 29 0d 20 20 28 | 76 61 6c 75 65 73 20 73 |te)).  (|values s|
|00002610| 65 6c 2d 73 74 61 72 74 | 20 73 65 6c 2d 65 6e 64 |el-start| sel-end|
|00002620| 29 29 0d 0d 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |))..;;;;|;;;;;;;;|
|00002630| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00002640| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00002650| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00002660| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 0d 0d 3b 3b 3b 3b |;;;;;;;;|;;..;;;;|
|00002670| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00002680| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00002690| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 0d 3b |;;;;;;;;|;;;;;;.;|
|000026a0| 3b 73 65 74 74 69 6e 67 | 20 74 65 78 74 20 76 69 |;setting| text vi|
|000026b0| 61 20 4c 49 53 50 20 73 | 74 72 69 6e 67 73 0d 0d |a LISP s|trings..|
|000026c0| 28 64 65 66 6d 65 74 68 | 6f 64 20 74 65 2d 73 74 |(defmeth|od te-st|
|000026d0| 72 69 6e 67 20 28 28 74 | 65 20 74 65 2d 62 6c 6f |ring ((t|e te-blo|
|000026e0| 62 29 29 0d 20 20 28 77 | 69 74 68 2d 6d 61 63 70 |b)).  (w|ith-macp|
|000026f0| 74 72 73 20 28 28 68 54 | 45 20 28 74 65 2d 68 54 |trs ((hT|E (te-hT|
|00002700| 45 20 74 65 29 29 29 0d | 20 20 20 20 28 77 69 74 |E te))).|    (wit|
|00002710| 68 2d 64 65 72 65 66 65 | 72 65 6e 63 65 64 2d 68 |h-derefe|renced-h|
|00002720| 61 6e 64 6c 65 73 20 20 | 28 28 74 65 78 74 2d 70 |andles  |((text-p|
|00002730| 74 72 20 28 23 5f 54 45 | 47 65 74 54 65 78 74 20 |tr (#_TE|GetText |
|00002740| 68 54 45 29 29 29 0d 20 | 20 20 20 20 20 28 63 63 |hTE))). |     (cc|
|00002750| 6c 3a 3a 25 73 74 72 2d | 66 72 6f 6d 2d 70 74 72 |l::%str-|from-ptr|
|00002760| 20 74 65 78 74 2d 70 74 | 72 20 28 68 72 65 66 20 | text-pt|r (href |
|00002770| 68 54 45 20 3a 54 45 52 | 65 63 2e 74 65 4c 65 6e |hTE :TER|ec.teLen|
|00002780| 67 74 68 29 29 29 29 29 | 0d 0d 28 64 65 66 6d 65 |gth)))))|..(defme|
|00002790| 74 68 6f 64 20 28 73 65 | 74 66 20 74 65 2d 73 74 |thod (se|tf te-st|
|000027a0| 72 69 6e 67 29 20 28 6e | 65 77 2d 73 74 72 69 6e |ring) (n|ew-strin|
|000027b0| 67 20 28 74 65 20 74 65 | 2d 62 6c 6f 62 29 29 0d |g (te te|-blob)).|
|000027c0| 20 20 28 77 69 74 68 2d | 63 73 74 72 73 20 28 28 |  (with-|cstrs ((|
|000027d0| 63 73 74 72 20 6e 65 77 | 2d 73 74 72 69 6e 67 29 |cstr new|-string)|
|000027e0| 29 0d 20 20 20 20 28 23 | 5f 54 45 53 65 74 54 65 |).    (#|_TESetTe|
|000027f0| 78 74 20 63 73 74 72 20 | 28 6c 65 6e 67 74 68 20 |xt cstr |(length |
|00002800| 6e 65 77 2d 73 74 72 69 | 6e 67 29 20 28 74 65 2d |new-stri|ng) (te-|
|00002810| 68 54 45 20 74 65 29 29 | 29 0d 20 20 28 74 65 2d |hTE te))|).  (te-|
|00002820| 73 65 74 2d 73 65 6c 65 | 63 74 69 6f 6e 20 74 65 |set-sele|ction te|
|00002830| 20 30 20 30 29 0d 20 20 | 28 74 65 2d 75 70 64 61 | 0 0).  |(te-upda|
|00002840| 74 65 2d 73 63 72 6f 6c | 6c 2d 6c 69 6d 69 74 20 |te-scrol|l-limit |
|00002850| 74 65 20 3a 76 65 72 74 | 69 63 61 6c 29 0d 20 20 |te :vert|ical).  |
|00002860| 28 74 65 2d 75 70 64 61 | 74 65 2d 73 63 72 6f 6c |(te-upda|te-scrol|
|00002870| 6c 2d 6c 69 6d 69 74 20 | 74 65 20 3a 68 6f 72 69 |l-limit |te :hori|
|00002880| 7a 6f 6e 74 61 6c 29 0d | 20 20 28 73 65 74 66 20 |zontal).|  (setf |
|00002890| 28 74 65 2d 76 2d 73 63 | 72 6f 6c 6c 2d 76 61 6c |(te-v-sc|roll-val|
|000028a0| 75 65 20 74 65 29 20 30 | 29 0d 20 20 28 73 65 74 |ue te) 0|).  (set|
|000028b0| 66 20 28 74 65 2d 68 2d | 73 63 72 6f 6c 6c 2d 76 |f (te-h-|scroll-v|
|000028c0| 61 6c 75 65 20 74 65 29 | 20 30 29 0d 20 20 3b 28 |alue te)| 0).  ;(|
|000028d0| 74 65 2d 64 72 61 77 20 | 74 65 29 0d 20 20 6e 65 |te-draw |te).  ne|
|000028e0| 77 2d 73 74 72 69 6e 67 | 29 0d 0d 0d 3b 3b 3b 3b |w-string|)...;;;;|
|000028f0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00002900| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00002910| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 0d 3b |;;;;;;;;|;;;;;;.;|
|00002920| 3b 73 65 74 74 69 6e 67 | 20 74 65 78 74 20 76 69 |;setting| text vi|
|00002930| 61 20 54 45 58 54 20 61 | 6e 64 20 73 74 79 6c 20 |a TEXT a|nd styl |
|00002940| 68 61 6e 64 6c 65 73 0d | 0d 28 64 65 66 6d 65 74 |handles.|.(defmet|
|00002950| 68 6f 64 20 74 65 2d 74 | 65 78 74 2d 68 61 6e 64 |hod te-t|ext-hand|
|00002960| 6c 65 20 28 28 74 65 20 | 74 65 2d 62 6c 6f 62 29 |le ((te |te-blob)|
|00002970| 29 0d 20 20 28 72 6c 65 | 74 20 28 28 68 61 6e 64 |).  (rle|t ((hand|
|00002980| 6c 65 2d 70 74 72 20 3a | 68 61 6e 64 6c 65 20 28 |le-ptr :|handle (|
|00002990| 68 72 65 66 20 28 74 65 | 2d 68 54 45 20 74 65 29 |href (te|-hTE te)|
|000029a0| 20 3a 54 45 52 65 63 2e | 68 54 65 78 74 29 29 29 | :TERec.|hText)))|
|000029b0| 0d 20 20 20 20 28 23 5f | 48 61 6e 64 54 6f 48 61 |.    (#_|HandToHa|
|000029c0| 6e 64 20 68 61 6e 64 6c | 65 2d 70 74 72 29 0d 20 |nd handl|e-ptr). |
|000029d0| 20 20 20 28 25 67 65 74 | 2d 70 74 72 20 68 61 6e |   (%get|-ptr han|
|000029e0| 64 6c 65 2d 70 74 72 29 | 29 29 0d 0d 28 64 65 66 |dle-ptr)|))..(def|
|000029f0| 6d 65 74 68 6f 64 20 74 | 65 2d 73 74 79 6c 65 2d |method t|e-style-|
|00002a00| 68 61 6e 64 6c 65 20 28 | 28 74 65 20 74 65 2d 62 |handle (|(te te-b|
|00002a10| 6c 6f 62 29 29 0d 20 20 | 28 77 69 74 68 2d 6d 61 |lob)).  |(with-ma|
|00002a20| 63 70 74 72 73 20 28 28 | 68 54 45 20 28 74 65 2d |cptrs ((|hTE (te-|
|00002a30| 68 54 45 20 74 65 29 29 | 29 0d 20 20 20 20 28 6d |hTE te))|).    (m|
|00002a40| 75 6c 74 69 70 6c 65 2d | 76 61 6c 75 65 2d 62 69 |ultiple-|value-bi|
|00002a50| 6e 64 20 28 73 74 61 72 | 74 20 65 6e 64 29 20 28 |nd (star|t end) (|
|00002a60| 74 65 2d 73 65 6c 65 63 | 74 69 6f 6e 20 74 65 29 |te-selec|tion te)|
|00002a70| 0d 20 20 20 20 20 20 28 | 74 65 2d 64 65 61 63 74 |.      (|te-deact|
|00002a80| 69 76 61 74 65 20 74 65 | 29 0d 20 20 20 20 20 20 |ivate te|).      |
|00002a90| 28 74 65 2d 73 65 6c 65 | 63 74 2d 61 6c 6c 20 74 |(te-sele|ct-all t|
|00002aa0| 65 29 0d 20 20 20 20 20 | 20 28 70 72 6f 67 31 0d |e).     | (prog1.|
|00002ab0| 20 20 20 20 20 20 20 20 | 28 23 5f 47 65 74 53 74 |        |(#_GetSt|
|00002ac0| 79 6c 53 63 72 61 70 20 | 68 54 45 29 0d 20 20 20 |ylScrap |hTE).   |
|00002ad0| 20 20 20 20 20 28 74 65 | 2d 73 65 74 2d 73 65 6c |     (te|-set-sel|
|00002ae0| 65 63 74 69 6f 6e 20 74 | 65 20 73 74 61 72 74 20 |ection t|e start |
|00002af0| 65 6e 64 29 0d 20 20 20 | 20 20 20 20 20 28 74 65 |end).   |     (te|
|00002b00| 2d 61 63 74 69 76 61 74 | 65 20 74 65 29 29 29 29 |-activat|e te))))|
|00002b10| 29 0d 0d 28 64 65 66 6d | 65 74 68 6f 64 20 74 65 |)..(defm|ethod te|
|00002b20| 2d 68 61 6e 64 6c 65 73 | 20 28 28 74 65 20 74 65 |-handles| ((te te|
|00002b30| 2d 62 6c 6f 62 29 29 0d | 20 20 28 76 61 6c 75 65 |-blob)).|  (value|
|00002b40| 73 20 28 74 65 2d 74 65 | 78 74 2d 68 61 6e 64 6c |s (te-te|xt-handl|
|00002b50| 65 20 74 65 29 20 28 74 | 65 2d 73 74 79 6c 65 2d |e te) (t|e-style-|
|00002b60| 68 61 6e 64 6c 65 20 74 | 65 29 29 29 0d 0d 28 64 |handle t|e)))..(d|
|00002b70| 65 66 6d 65 74 68 6f 64 | 20 28 73 65 74 66 20 74 |efmethod| (setf t|
|00002b80| 65 2d 74 65 78 74 2d 68 | 61 6e 64 6c 65 29 20 28 |e-text-h|andle) (|
|00002b90| 74 65 78 74 2d 68 61 6e | 64 6c 65 20 28 74 65 20 |text-han|dle (te |
|00002ba0| 74 65 2d 62 6c 6f 62 29 | 29 0d 20 20 28 77 69 74 |te-blob)|).  (wit|
|00002bb0| 68 2d 64 65 72 65 66 65 | 72 65 6e 63 65 64 2d 68 |h-derefe|renced-h|
|00002bc0| 61 6e 64 6c 65 73 20 28 | 28 74 65 78 74 2d 70 74 |andles (|(text-pt|
|00002bd0| 72 20 74 65 78 74 2d 68 | 61 6e 64 6c 65 29 29 0d |r text-h|andle)).|
|00002be0| 20 20 20 20 28 23 5f 54 | 45 53 65 74 54 65 78 74 |    (#_T|ESetText|
|00002bf0| 20 74 65 78 74 2d 70 74 | 72 20 28 23 5f 47 65 74 | text-pt|r (#_Get|
|00002c00| 48 61 6e 64 6c 65 53 69 | 7a 65 20 74 65 78 74 2d |HandleSi|ze text-|
|00002c10| 68 61 6e 64 6c 65 29 20 | 28 74 65 2d 68 54 45 20 |handle) |(te-hTE |
|00002c20| 74 65 29 29 29 0d 20 20 | 28 74 65 2d 73 65 74 2d |te))).  |(te-set-|
|00002c30| 73 65 6c 65 63 74 69 6f | 6e 20 74 65 20 30 20 30 |selectio|n te 0 0|
|00002c40| 29 0d 20 20 28 74 65 2d | 75 70 64 61 74 65 20 74 |).  (te-|update t|
|00002c50| 65 29 0d 20 20 74 65 78 | 74 2d 68 61 6e 64 6c 65 |e).  tex|t-handle|
|00002c60| 29 0d 0d 28 64 65 66 6d | 65 74 68 6f 64 20 28 73 |)..(defm|ethod (s|
|00002c70| 65 74 66 20 74 65 2d 73 | 74 79 6c 65 2d 68 61 6e |etf te-s|tyle-han|
|00002c80| 64 6c 65 29 20 28 73 74 | 79 6c 65 2d 68 61 6e 64 |dle) (st|yle-hand|
|00002c90| 6c 65 20 28 74 65 20 74 | 65 2d 62 6c 6f 62 29 29 |le (te t|e-blob))|
|00002ca0| 0d 20 20 28 77 69 74 68 | 2d 6d 61 63 70 74 72 73 |.  (with|-macptrs|
|00002cb0| 20 28 28 68 54 45 20 28 | 74 65 2d 68 54 45 20 74 | ((hTE (|te-hTE t|
|00002cc0| 65 29 29 29 0d 20 20 20 | 20 28 23 5f 53 65 74 53 |e))).   | (#_SetS|
|00002cd0| 74 79 6c 53 63 72 61 70 | 20 30 20 28 68 72 65 66 |tylScrap| 0 (href|
|00002ce0| 20 68 54 45 20 3a 54 45 | 52 65 63 2e 74 65 4c 65 | hTE :TE|Rec.teLe|
|00002cf0| 6e 67 74 68 29 20 73 74 | 79 6c 65 2d 68 61 6e 64 |ngth) st|yle-hand|
|00002d00| 6c 65 20 6e 69 6c 20 68 | 54 45 29 29 0d 20 20 28 |le nil h|TE)).  (|
|00002d10| 74 65 2d 73 65 74 2d 73 | 65 6c 65 63 74 69 6f 6e |te-set-s|election|
|00002d20| 20 74 65 20 30 20 30 29 | 0d 20 20 28 74 65 2d 75 | te 0 0)|.  (te-u|
|00002d30| 70 64 61 74 65 20 74 65 | 29 0d 20 20 73 74 79 6c |pdate te|).  styl|
|00002d40| 65 2d 68 61 6e 64 6c 65 | 29 0d 0d 28 64 65 66 6d |e-handle|)..(defm|
|00002d50| 65 74 68 6f 64 20 73 65 | 74 2d 74 65 2d 68 61 6e |ethod se|t-te-han|
|00002d60| 64 6c 65 73 20 28 28 74 | 65 20 74 65 2d 62 6c 6f |dles ((t|e te-blo|
|00002d70| 62 29 20 74 65 78 74 2d | 68 61 6e 64 6c 65 20 73 |b) text-|handle s|
|00002d80| 74 79 6c 65 2d 68 61 6e | 64 6c 65 29 0d 20 20 28 |tyle-han|dle).  (|
|00002d90| 77 69 74 68 2d 6d 61 63 | 70 74 72 73 20 28 28 68 |with-mac|ptrs ((h|
|00002da0| 54 45 20 28 74 65 2d 68 | 54 45 20 74 65 29 29 29 |TE (te-h|TE te)))|
|00002db0| 0d 20 20 20 20 28 77 68 | 65 6e 20 74 65 78 74 2d |.    (wh|en text-|
|00002dc0| 68 61 6e 64 6c 65 0d 20 | 20 20 20 20 20 28 77 69 |handle. |     (wi|
|00002dd0| 74 68 2d 64 65 72 65 66 | 65 72 65 6e 63 65 64 2d |th-deref|erenced-|
|00002de0| 68 61 6e 64 6c 65 73 20 | 28 28 74 65 78 74 2d 70 |handles |((text-p|
|00002df0| 74 72 20 74 65 78 74 2d | 68 61 6e 64 6c 65 29 29 |tr text-|handle))|
|00002e00| 0d 20 20 20 20 20 20 20 | 20 28 23 5f 54 45 53 65 |.       | (#_TESe|
|00002e10| 74 54 65 78 74 20 74 65 | 78 74 2d 70 74 72 20 28 |tText te|xt-ptr (|
|00002e20| 23 5f 47 65 74 48 61 6e | 64 6c 65 53 69 7a 65 20 |#_GetHan|dleSize |
|00002e30| 74 65 78 74 2d 68 61 6e | 64 6c 65 29 20 68 54 45 |text-han|dle) hTE|
|00002e40| 29 29 29 0d 20 20 20 20 | 28 77 68 65 6e 20 73 74 |))).    |(when st|
|00002e50| 79 6c 65 2d 68 61 6e 64 | 6c 65 0d 20 20 20 20 20 |yle-hand|le.     |
|00002e60| 20 28 23 5f 53 65 74 53 | 74 79 6c 53 63 72 61 70 | (#_SetS|tylScrap|
|00002e70| 20 30 20 28 68 72 65 66 | 20 68 54 45 20 3a 54 45 | 0 (href| hTE :TE|
|00002e80| 52 65 63 2e 74 65 4c 65 | 6e 67 74 68 29 20 73 74 |Rec.teLe|ngth) st|
|00002e90| 79 6c 65 2d 68 61 6e 64 | 6c 65 20 6e 69 6c 20 68 |yle-hand|le nil h|
|00002ea0| 54 45 29 29 0d 20 20 20 | 20 28 74 65 2d 73 65 74 |TE)).   | (te-set|
|00002eb0| 2d 73 65 6c 65 63 74 69 | 6f 6e 20 74 65 20 30 20 |-selecti|on te 0 |
|00002ec0| 30 29 0d 20 20 20 20 28 | 74 65 2d 75 70 64 61 74 |0).    (|te-updat|
|00002ed0| 65 20 74 65 29 0d 20 20 | 20 20 28 76 61 6c 75 65 |e te).  |  (value|
|00002ee0| 73 20 74 65 78 74 2d 68 | 61 6e 64 6c 65 20 73 74 |s text-h|andle st|
|00002ef0| 79 6c 65 2d 68 61 6e 64 | 6c 65 29 29 29 0d 0d 3b |yle-hand|le)))..;|
|00002f00| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00002f10| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00002f20| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00002f30| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00002f40| 3b 3b 3b 3b 3b 0d 3b 3b | 20 73 63 72 6f 6c 6c 69 |;;;;;.;;| scrolli|
|00002f50| 6e 67 0d 0d 28 64 65 66 | 6d 65 74 68 6f 64 20 74 |ng..(def|method t|
|00002f60| 65 2d 63 6c 69 63 6b 2d | 6c 6f 6f 70 20 28 28 74 |e-click-|loop ((t|
|00002f70| 65 20 74 65 2d 62 6c 6f | 62 29 29 0d 20 20 28 72 |e te-blo|b)).  (r|
|00002f80| 6c 65 74 20 28 28 70 74 | 5f 70 20 3a 70 6f 69 6e |let ((pt|_p :poin|
|00002f90| 74 29 29 0d 20 20 20 20 | 28 23 5f 47 65 74 4d 6f |t)).    |(#_GetMo|
|00002fa0| 75 73 65 20 70 74 5f 70 | 29 0d 20 20 20 20 28 6c |use pt_p|).    (l|
|00002fb0| 65 74 20 28 28 76 20 28 | 25 67 65 74 2d 73 69 67 |et ((v (|%get-sig|
|00002fc0| 6e 65 64 2d 77 6f 72 64 | 20 70 74 5f 70 29 29 0d |ned-word| pt_p)).|
|00002fd0| 20 20 20 20 20 20 20 20 | 20 20 28 68 20 28 25 67 |        |  (h (%g|
|00002fe0| 65 74 2d 73 69 67 6e 65 | 64 2d 77 6f 72 64 20 70 |et-signe|d-word p|
|00002ff0| 74 5f 70 20 32 29 29 29 | 0d 20 20 20 20 20 20 28 |t_p 2)))|.      (|
|00003000| 77 69 74 68 2d 64 65 72 | 65 66 65 72 65 6e 63 65 |with-der|eference|
|00003010| 64 2d 68 61 6e 64 6c 65 | 73 20 28 28 70 54 45 20 |d-handle|s ((pTE |
|00003020| 28 74 65 2d 68 54 45 20 | 74 65 29 29 29 0d 20 20 |(te-hTE |te))).  |
|00003030| 20 20 20 20 20 20 28 77 | 68 65 6e 20 28 74 65 2d |      (w|hen (te-|
|00003040| 76 2d 73 63 72 6f 6c 6c | 2d 70 20 74 65 29 0d 20 |v-scroll|-p te). |
|00003050| 20 20 20 20 20 20 20 20 | 20 28 69 66 20 28 3c 20 |        | (if (< |
|00003060| 76 20 28 70 72 65 66 20 | 70 54 45 20 3a 54 45 52 |v (pref |pTE :TER|
|00003070| 65 63 2e 76 69 65 77 52 | 65 63 74 2e 74 6f 70 29 |ec.viewR|ect.top)|
|00003080| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 28 74 |).      |      (t|
|00003090| 65 2d 6c 69 6e 65 2d 64 | 6f 77 6e 20 74 65 29 0d |e-line-d|own te).|
|000030a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 28 77 68 65 |        |    (whe|
|000030b0| 6e 20 28 3e 20 76 20 28 | 70 72 65 66 20 70 54 45 |n (> v (|pref pTE|
|000030c0| 20 3a 54 45 52 65 63 2e | 76 69 65 77 52 65 63 74 | :TERec.|viewRect|
|000030d0| 2e 62 6f 74 74 6f 6d 29 | 29 0d 20 20 20 20 20 20 |.bottom)|).      |
|000030e0| 20 20 20 20 20 20 20 20 | 28 74 65 2d 6c 69 6e 65 |        |(te-line|
|000030f0| 2d 75 70 20 74 65 29 29 | 29 29 0d 20 20 20 20 20 |-up te))|)).     |
|00003100| 20 20 20 28 77 68 65 6e | 20 28 74 65 2d 68 2d 73 |   (when| (te-h-s|
|00003110| 63 72 6f 6c 6c 2d 70 20 | 74 65 29 0d 20 20 20 20 |croll-p |te).    |
|00003120| 20 20 20 20 20 20 28 69 | 66 20 28 3c 20 68 20 28 |      (i|f (< h (|
|00003130| 70 72 65 66 20 70 54 45 | 20 3a 54 45 52 65 63 2e |pref pTE| :TERec.|
|00003140| 76 69 65 77 52 65 63 74 | 2e 6c 65 66 74 29 29 0d |viewRect|.left)).|
|00003150| 20 20 20 20 20 20 20 20 | 20 20 20 20 28 74 65 2d |        |    (te-|
|00003160| 6c 69 6e 65 2d 72 69 67 | 68 74 20 74 65 29 0d 20 |line-rig|ht te). |
|00003170| 20 20 20 20 20 20 20 20 | 20 20 20 28 77 68 65 6e |        |   (when|
|00003180| 20 28 3e 20 68 20 28 70 | 72 65 66 20 70 54 45 20 | (> h (p|ref pTE |
|00003190| 3a 54 45 52 65 63 2e 76 | 69 65 77 52 65 63 74 2e |:TERec.v|iewRect.|
|000031a0| 72 69 67 68 74 29 29 0d | 20 20 20 20 20 20 20 20 |right)).|        |
|000031b0| 20 20 20 20 20 20 28 74 | 65 2d 6c 69 6e 65 2d 6c |      (t|e-line-l|
|000031c0| 65 66 74 20 74 65 29 29 | 29 29 29 29 29 29 0d 0d |eft te))|))))))..|
|000031d0| 28 64 65 66 6d 65 74 68 | 6f 64 20 74 65 2d 6c 69 |(defmeth|od te-li|
|000031e0| 6e 65 2d 75 70 20 28 28 | 74 65 20 74 65 2d 62 6c |ne-up ((|te te-bl|
|000031f0| 6f 62 29 29 0d 20 20 28 | 69 6e 63 66 20 28 74 65 |ob)).  (|incf (te|
|00003200| 2d 76 2d 73 63 72 6f 6c | 6c 2d 76 61 6c 75 65 20 |-v-scrol|l-value |
|00003210| 74 65 29 20 35 29 29 0d | 0d 28 64 65 66 6d 65 74 |te) 5)).|.(defmet|
|00003220| 68 6f 64 20 74 65 2d 6c | 69 6e 65 2d 64 6f 77 6e |hod te-l|ine-down|
|00003230| 20 28 28 74 65 20 74 65 | 2d 62 6c 6f 62 29 29 0d | ((te te|-blob)).|
|00003240| 20 20 28 64 65 63 66 20 | 28 74 65 2d 76 2d 73 63 |  (decf |(te-v-sc|
|00003250| 72 6f 6c 6c 2d 76 61 6c | 75 65 20 74 65 29 20 35 |roll-val|ue te) 5|
|00003260| 29 29 0d 0d 28 64 65 66 | 6d 65 74 68 6f 64 20 74 |))..(def|method t|
|00003270| 65 2d 76 2d 70 61 67 65 | 2d 73 69 7a 65 20 28 28 |e-v-page|-size ((|
|00003280| 74 65 20 74 65 2d 62 6c | 6f 62 29 29 0d 20 20 28 |te te-bl|ob)).  (|
|00003290| 77 69 74 68 2d 6d 61 63 | 70 74 72 73 20 28 28 68 |with-mac|ptrs ((h|
|000032a0| 54 45 20 28 74 65 2d 68 | 54 45 20 74 65 29 29 29 |TE (te-h|TE te)))|
|000032b0| 0d 20 20 20 20 28 2d 20 | 28 68 72 65 66 20 68 54 |.    (- |(href hT|
|000032c0| 45 20 3a 54 45 52 65 63 | 2e 76 69 65 77 52 65 63 |E :TERec|.viewRec|
|000032d0| 74 2e 62 6f 74 74 6f 6d | 29 20 28 68 72 65 66 20 |t.bottom|) (href |
|000032e0| 68 54 45 20 3a 54 45 52 | 65 63 2e 76 69 65 77 52 |hTE :TER|ec.viewR|
|000032f0| 65 63 74 2e 74 6f 70 29 | 29 29 29 0d 0d 28 64 65 |ect.top)|)))..(de|
|00003300| 66 6d 65 74 68 6f 64 20 | 74 65 2d 70 61 67 65 2d |fmethod |te-page-|
|00003310| 75 70 20 28 28 74 65 20 | 74 65 2d 62 6c 6f 62 29 |up ((te |te-blob)|
|00003320| 29 0d 20 20 28 69 6e 63 | 66 20 28 74 65 2d 76 2d |).  (inc|f (te-v-|
|00003330| 73 63 72 6f 6c 6c 2d 76 | 61 6c 75 65 20 74 65 29 |scroll-v|alue te)|
|00003340| 20 28 74 65 2d 76 2d 70 | 61 67 65 2d 73 69 7a 65 | (te-v-p|age-size|
|00003350| 20 74 65 29 29 29 0d 0d | 28 64 65 66 6d 65 74 68 | te)))..|(defmeth|
|00003360| 6f 64 20 74 65 2d 70 61 | 67 65 2d 64 6f 77 6e 20 |od te-pa|ge-down |
|00003370| 28 28 74 65 20 74 65 2d | 62 6c 6f 62 29 29 0d 20 |((te te-|blob)). |
|00003380| 20 28 64 65 63 66 20 28 | 74 65 2d 76 2d 73 63 72 | (decf (|te-v-scr|
|00003390| 6f 6c 6c 2d 76 61 6c 75 | 65 20 74 65 29 20 28 74 |oll-valu|e te) (t|
|000033a0| 65 2d 76 2d 70 61 67 65 | 2d 73 69 7a 65 20 74 65 |e-v-page|-size te|
|000033b0| 29 29 29 0d 0d 0d 28 64 | 65 66 6d 65 74 68 6f 64 |)))...(d|efmethod|
|000033c0| 20 74 65 2d 6c 69 6e 65 | 2d 6c 65 66 74 20 28 28 | te-line|-left ((|
|000033d0| 74 65 20 74 65 2d 62 6c | 6f 62 29 29 0d 20 20 28 |te te-bl|ob)).  (|
|000033e0| 69 6e 63 66 20 28 74 65 | 2d 68 2d 73 63 72 6f 6c |incf (te|-h-scrol|
|000033f0| 6c 2d 76 61 6c 75 65 20 | 74 65 29 20 35 29 29 0d |l-value |te) 5)).|
|00003400| 0d 28 64 65 66 6d 65 74 | 68 6f 64 20 74 65 2d 6c |.(defmet|hod te-l|
|00003410| 69 6e 65 2d 72 69 67 68 | 74 20 28 28 74 65 20 74 |ine-righ|t ((te t|
|00003420| 65 2d 62 6c 6f 62 29 29 | 0d 20 20 28 64 65 63 66 |e-blob))|.  (decf|
|00003430| 20 28 74 65 2d 68 2d 73 | 63 72 6f 6c 6c 2d 76 61 | (te-h-s|croll-va|
|00003440| 6c 75 65 20 74 65 29 20 | 35 29 29 0d 0d 28 64 65 |lue te) |5))..(de|
|00003450| 66 6d 65 74 68 6f 64 20 | 74 65 2d 68 2d 70 61 67 |fmethod |te-h-pag|
|00003460| 65 2d 73 69 7a 65 20 28 | 28 74 65 20 74 65 2d 62 |e-size (|(te te-b|
|00003470| 6c 6f 62 29 29 0d 20 20 | 28 77 69 74 68 2d 6d 61 |lob)).  |(with-ma|
|00003480| 63 70 74 72 73 20 28 28 | 68 54 45 20 28 74 65 2d |cptrs ((|hTE (te-|
|00003490| 68 54 45 20 74 65 29 29 | 29 0d 20 20 20 20 28 2d |hTE te))|).    (-|
|000034a0| 20 28 68 72 65 66 20 68 | 54 45 20 3a 54 45 52 65 | (href h|TE :TERe|
|000034b0| 63 2e 76 69 65 77 52 65 | 63 74 2e 72 69 67 68 74 |c.viewRe|ct.right|
|000034c0| 29 20 28 68 72 65 66 20 | 68 54 45 20 3a 54 45 52 |) (href |hTE :TER|
|000034d0| 65 63 2e 76 69 65 77 52 | 65 63 74 2e 6c 65 66 74 |ec.viewR|ect.left|
|000034e0| 29 29 29 29 0d 0d 28 64 | 65 66 6d 65 74 68 6f 64 |))))..(d|efmethod|
|000034f0| 20 74 65 2d 70 61 67 65 | 2d 6c 65 66 74 20 28 28 | te-page|-left ((|
|00003500| 74 65 20 74 65 2d 62 6c | 6f 62 29 29 0d 20 20 28 |te te-bl|ob)).  (|
|00003510| 69 6e 63 66 20 28 74 65 | 2d 68 2d 73 63 72 6f 6c |incf (te|-h-scrol|
|00003520| 6c 2d 76 61 6c 75 65 20 | 74 65 29 20 28 74 65 2d |l-value |te) (te-|
|00003530| 68 2d 70 61 67 65 2d 73 | 69 7a 65 20 74 65 29 29 |h-page-s|ize te))|
|00003540| 29 0d 0d 28 64 65 66 6d | 65 74 68 6f 64 20 74 65 |)..(defm|ethod te|
|00003550| 2d 70 61 67 65 2d 72 69 | 67 68 74 20 28 28 74 65 |-page-ri|ght ((te|
|00003560| 20 74 65 2d 62 6c 6f 62 | 29 29 0d 20 20 28 64 65 | te-blob|)).  (de|
|00003570| 63 66 20 28 74 65 2d 68 | 2d 73 63 72 6f 6c 6c 2d |cf (te-h|-scroll-|
|00003580| 76 61 6c 75 65 20 74 65 | 29 20 28 74 65 2d 68 2d |value te|) (te-h-|
|00003590| 70 61 67 65 2d 73 69 7a | 65 20 74 65 29 29 29 00 |page-siz|e te))).|
|000035a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000035b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000035c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000035d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000035e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000035f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003600| 00 00 01 00 00 00 01 68 | 00 00 00 68 00 00 00 52 |.......h|...h...R|
|00003610| c3 ee ac d6 89 ab 07 84 | f5 32 6c 02 96 ff e4 8d |........|.2l.....|
|00003620| c3 72 20 8d 15 86 af 2d | 2c ff f8 8b f4 96 ff cc |.r ....-|,.......|
|00003630| 0c 74 65 2d 62 6c 6f 62 | 2e 6c 69 73 70 e2 02 00 |.te-blob|.lisp...|
|00003640| 00 00 54 45 58 54 43 43 | 4c 32 01 00 00 3c 00 00 |..TEXTCC|L2...<..|
|00003650| 00 00 54 45 58 54 43 43 | 4c 32 01 00 00 3c 00 00 |..TEXTCC|L2...<..|
|00003660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003670| 00 00 a6 74 a2 93 00 00 | 35 1f 00 00 01 ba 40 00 |...t....|5.....@.|
|00003680| 00 0f 0c 08 08 1b 04 07 | 06 04 05 06 04 07 06 06 |........|........|
|00003690| 07 07 0b 6f 07 65 00 00 | 01 04 01 01 8d 14 08 bd |...o.e..|........|
|000036a0| a0 76 20 60 10 76 07 a6 | c6 40 66 42 08 00 00 03 |.v `.v..|.@fB....|
|000036b0| 66 3c 26 00 e6 83 20 01 | 6b 34 78 07 a6 c8 40 66 |f<&... .|k4x...@f|
|000036c0| 2e 8d 0c cc bc 08 03 00 | 05 86 a6 b6 3c 00 12 66 |........|....<..f|
|000036d0| 24 72 00 56 48 26 18 a6 | c6 b8 03 1a a6 e4 83 9e |$r.VH&..|........|
|000036e0| 20 c1 51 cb ff fc 52 43 | 53 83 64 f4 60 08 ee 70 | .Q...RC|S.d.`..p|
|000036f0| 10 8d 0e 88 ae cf 52 fe | 00 00 30 6f 29 47 f0 00 |......R.|..0o)G..|
|00003700| 00 00 00 0a 00 01 00 16 | 0a 00 01 00 00 00 00 00 |........|........|
|00003710| 00 0a 00 00 07 43 6f 75 | 72 69 65 72 00 00 00 48 |.....Cou|rier...H|
|00003720| 00 0a 43 6f 75 72 69 65 | 72 00 00 00 00 00 00 00 |..Courie|r.......|
|00003730| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003740| 00 00 00 06 00 08 00 7c | 01 b7 03 42 03 da 00 7c |.......||...B...||
|00003750| 01 b7 03 42 03 da 00 00 | 00 00 00 00 28 be 00 00 |...B....|....(...|
|00003760| 28 be 00 00 28 08 01 00 | 00 00 01 00 00 00 01 68 |(...(...|.......h|
|00003770| 00 00 00 68 00 00 00 52 | 00 d1 76 94 0a 4a 00 00 |...h...R|..v..J..|
|00003780| 00 1c 00 52 00 01 46 52 | 45 44 00 01 00 12 4d 50 |...R..FR|ED....MP|
|00003790| 53 52 00 00 00 2a 00 02 | ff ff 00 00 00 00 00 00 |SR...*..|........|
|000037a0| 00 00 00 03 ff ff 00 00 | 00 0e 00 00 00 00 03 ed |........|........|
|000037b0| ff ff 00 00 00 1c 00 d5 | 6c b0 00 00 00 00 00 00 |........|l.......|
|000037c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000037d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000037e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000037f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+